RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR FR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR = RRR 

RRR = RRR 

RRR = RRR 

RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 


a a a a a a a a a a tt a st st st st tt 
St st st St St Ht 
Att ta 4 tt SH St HH Ht tt 


PPPPPPPPPPPP 
PPPPPPPPPPPP 


PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 


PPPPPPPPPPPP 
P P 


AAAAAAAAA 

AAAAAAAAA 

AAAAAAAAA 
ARR 
AAA AAA 
AAA AAA 
AAA AAA 
AAA AAA 
A AAA 
AAA AAA 
AAA AAA 
AAA AAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA AAA 
AAA AAA 
AAA AAA 
AAA AAA 
AAA AAA 
AAA AAA 


DDDDDDDDDDDD 

DDDDDDDDDDDD 

DDDDDDDDDDDD 

DDD DOD 
DDD DOD 
DOD DOD 
DOD DOD 
DDD DDD 
DDD DOD 
DDD DOD 
DDD DDD 
DDD DDD 
DOD DDD 
DDD DOD 
DDD DOD 
DOD DOD 
DDD DDD 
DOD DDD 
DDDDDDDDDDDD 

DDDDDDDDDDDD 


DDDDDDDDDDDD 


- or a 


ee ee ee 
ed ee ee ee ee ee ed 


S RRRRRRRR 
S RRRRRRRR 
RR 
RR 
RR 
RR 


Pe — 


— 
zz at ay a dt 


au 
4a 
vou 
v4 
44 
ee) 
odo 
ee 
— 
a 


*eF I LE®*]D*eVMSRT 


VMSRT 
Table 


DECLARATIONS 
VMSRT = START 


WOVIWOO 


- 
_— 
2 
x 
mz 
m 
oo 
< 
a 
v 
owmo 


AAR RRR RRR RAR RAR AAO 
PWR 2 2 2 
we SS eS we we Se SS wr ww 
pe tee te NS Ee 
FOW FS DWODOUIWMO OP & 


tt as 2 a dt a 


- VMS PROTOCOL WITH CTERM HOOKS 


mom cC 


EmSSs: 
= 


Doowmcm 
FrOMS? NBAIVELYMwv 


Pr OOMZOZBPr I rOonrYo 


Protocol Message buffers 


—=d 


; 


16-SEP-1984 02:17:21 VAX/VMS Macro Vv04-00 


J 4 
- VAS PROTOCOL WITH CTERM HOOKS i a tt FS 9 Oe i738) AX/VMS Macro V04-00 Page 
“SEP=1984 05:16:06 CRIPAD.SRCJVMSRT.MAR; 1 


- TITLE yoset = VMS PROTOCOL WITH CTERM HOOKS 
IDENT ‘Vv04=000' 


MARA RARARARAAAAAAAAAAALALAAL ESAS AAS ES ESSE SERRE SEER SEER SES ARSE EERE REESE EES 


COPYRIGHT (c) 1978, 1980, 1982, 1984 
Meek te AceE AVES: CORPORATION, | MAYNARD. MASSACHUSETTS. 


SOooooooo°oo 


** ® 
*® ® 
® *® 
® * 
& ® 
: FTUARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
® CCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
ie THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
* REOF NAY NOT BE PROVIDED. OR OTHERWISE MADE AVAILABLE TO ANY © 
te OT SON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
:® TRANSFERRED. ® 
** ® 
® ® 
* ® 
*® + 
*® * 
* & 
** ® 
*® sd 
*® te 
** * 


: L 

te THI 

; L 

: THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:* AND SHOULD 


mm > 
S 


NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


LARRRRRAAAARAAAALALAAAEAAAALASSLALALASASAS ERASE SESE SEER SAREE SRSA RELA ALES SS 


oo SOOooOoOooooooooooooo 


SOoOSCOSCOCCOOSOOSOSOSOOSCOSOSOSOSOOSOSOOOOSOOOOOoOO 


SOOCOOCOCO COCO OC SCO COSC OOO OOOO SOOO OO OOO OOOO OOOO OOOOOOOOO: 


REUSE BENE RROR NS Savor on S 
NOUR WR @OOONOAUE WN OOO NOAU EWN $0 OONAU EWN (OC OONOUL WIR OODNOUS WR 
. . * . 
+ 
+ 


SOOCOOCOSOOSOOSOOOSOOOSOOSOSOOOSOSOSOSOSOSOSOOOOOCO OOOO OOOOOCOOOOOOOOOOO 


0 

0 

0 

0 3 

0 3 

3 3 FACILITY: 

9 ; SET HOST, aka RTPAD 

9 : ABSTRACT: 

0 36: This module handles all of the VMS specific remote terminal 

37 ; protocol. It also contains hooks for the CTERM protocol. 

9 3 : ENVIRONMENT: VMS user mode 

$00 im 

00 43 : AUTHOR: Jake VanNoy , CREATION DATE: 14-Jan-1982 

4 : 3 ORIGINAL AUTHOR: WM Cardoza 

09 4 : MODIFIED BY: 

00 48 : V03-008 JLV0364 11-JUL=1984 

0 49 ; Add code to chip’ SSErinne pi *“Y routine if SETIMR 

00 3 already pending. 

8) 3 Fix broken branch due to change in QUIT. 

00 : V03-007 MHBO135 Mark Bramhall 10-Apr-1984 

88 : Fix register conventions when calling VMS_ IN READ. 

00 : v03-006 JLV0331 Jake VanNoy 28-F EB-1984 
0 : Integrate trace facility into permanent code. 
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BrSEE=19ks 8:16.06 FRIPAD SRETVASKS Mans 1 ef 
Add boceneer? status to REM-F-NETMBX failure to 
show why Link was blown away. 
v03-005 JLV0325 Jake vootex 10-JAN-1984 
Add terminator in fake I0SB generated by VMS_INDREAD. 
V03-004 JLV0296 Jake VanNoy 28-JUL-1983 
add OUTBANDABO channel. 
V03-003 JLV0266 Jake VanNoy 26-MAY-1983 
Restore code to prevent purge typeahead on ‘Username:'' 
V03-002 MHB0092 Mark Bramhall 3-Mar-1983 
Moved MAXMSG to SRTPADDEF. 
v03-001 JLVO Jake VanNoy 14-Jan-1983 


Module created from VMS protocol code previously 
held in RTPAD module. Hook for CTERM were included. 


~SBTTL DECLARATIONS 


> INCLUDE FILES: 


SOVIDEF 
SROPDEF 
SRTPADDEF 
STSADEF 


t EQUATED SYMBOLS: 
ASSEM_TRACE = 1 ; INCLUDE TRACE CODE 
ASTST_BUF = CTPSB_PRO_MSGTYPE ; *#* 


OP CODES 


OP_READ = 1 
OPWRITE = 
OP” SE TMODE 


es 
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0000 ~-PSECT RTPAD,NOWRT 
nee -SBTTL VASRT = START UP VMS TO VMS PROTOCOL 
FUNCTIONAL DESCRIPTION: 
PERFORMS INITIALIZATION FUNCTIONS FOR VMS TO VMS PROTOCOL 
CALLING SEQUENCE: 
CALLS #0,VMSRT 
INPUT PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
CHANNEL NUMBERS, ETC. 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 


COoOOCCOOCOCoOOCOooOOoooooooooo 


OOoOooooooooooooooooooo 


COOCCCCOCOOCOOOOOCOCOOCOoOeO 


SIDE EFFECTS: 


SETS UP MAILBOX READS FOR LINK, UNSOLICITED TERMINAL INPUT 
ENABLES “C, “Y AST'S 


Bete Se Ge Se Ge Se Ge Ge Ge Se Ge Se Se Se Se Ge Ge Ge Se Se See Se Se Ge Sse Se Se Se Gs Sse Se tse te 


000c 
00000000’ EF 83 
13. «1 


ENTRY VMSRT, “M<R2,R35> 


TSTW FINALACS : 
BEQL ; Branch if no access control string 
SPUTMSG_S MSGVEC = ACSIGNORE  ; Warn him we are ignoring it 


? 10$: 
1 ; 
' : Assume CTERM BIND ACCEPT message 
50 aaa +4'¢ $9 1 9E 1 MOVAB CT_BIND_ACC_MSG,RO ; Address of buffer (BIND ACCEPT) 
51 0000°8F  3¢ MOVZWL #CT_BIND_MSGLEN,R1 ; Length of message 
50 OOOOO000"EF €E8 BLBS CTERM_FLAG,25$ ; Branch if cterm 


; we WHAT USES THIS TERMUNIT GARBAGE??? NOTE CODE IS BUGGY... 


MOVAB DEVNAM,RO TADDRESS OF COUNTED STRING 
MOVW 1(RO), fERMUNIT+2 [USE PART OF DEV NAME AS HIGH UNIT 


aaa a a tk a a a tt a od = = ot 2 1 a ss a ss a ss a + 


PDOROAAOAUINIMNUNNIUIVUINIUI ES BEE BEE BE EWN NW WINNING OO 


PAR OC ODA UNE WIN 9 OD NAME WIN 9 OO NAME WN 0 OD NOU EWN OOO NAUS WOOO 
. 


50 _00000000'EF 43 
00000002"EF 01 A0 8B 


mM 4 
VASRT = VMS PROTOCOL WITH CTERM HOOKS 16-SEP-1984 02:17:21 VAX/VMS Macro v04-00 Pa 4 VMS 
v04-000 VMSRT = START UP VMS TO VMS PROTOCOL ety 7 88:10:85 ERIPAD SRe VMSRT.MAR; 1 - (1) v04 
59 00000000" EF 9 3F 165 ADDL? DEVNAMLEN,RO :GET TO LAST CHAR (CONTROLLER) 
1 60 \" f 3 46 196 suBB3 #°ALA7, (ROD RI ;GET CONTROLLER NUMBER 
51 51 04 78 004 168 ASHL  #4.R1,R1 
00000000' EF 1 Ad 3 168 ADDW2 R1, TERMUNIT ;ADD CONTROLLER NUMBER TO UNIT 
39 4 ; VAX config (BIND) message 
50 4 9E 28 158 MOVAB W*CHAR_BLOCK,RO 3; Characteristics 
51 OOB2'CF 9€ 43 174 MOVAB W*CONFIG CHAR,RI : CONFIG characteristics 
81 80 7D 006 175 MOVQ (RO)+,(RT)+ : first 8 bytes 
81 80 o0 $28 178 MOVL (RO)+,(R1)+ ; last four bytes 
50  aaet'*3 2) 18 9E 89? re MOVAB CONFIG ; Address of buffer 
1 0014°SF 3C 00 Q 17 MOVZWL #CONFIG MSGLEN,R1 : Length of message 
OO0000000'EF 95 007 199 STB PROTO_EC ; Eco is 0 for 8 bytes of char 
03 ig 007B 181 BNEQ 25$ ; Long form of charateristics? 
s Oo -<& h43 188 SUBL #4,R1 ; No, old form had 8 bytes of char 
9080 18 : Send BIND ACCEPT back to HOST 
0080 186 25$: 5 
52 26 A0 9E 0080 189 MOVAB ASTST_BUF(RO),R2 ; Address of message 
0935 6.30 0084 188 BSBW WRITE-TO_NET_SYNC : Write message to NET 
0087 190 : Read from NET mailbox 
50 0036'CF 9E 0087 198 MOVAB  W*LINKMAIL,RO ; Address of data area 
oo8c 8619 $Q10_S CHAN = MAILCHAN - 3 Link mailbox read 
008C 194 FUNC = #10$_READVBLK - 
008C 195 OSB = AST$Q_IOSB(RO) - 
008C 196 ASTADR = ASTRANDLER - 
99 C 197 STPRM = RO - 
08C 198 Pl = ASTST_BUF(RO) - 
008c 199 = #40 
is t4 $70 ONERROR QUIT : Die if error 
Sopp 08 : Read from associated terminal mailbox 
07 00000000'EF £8 90Dp 04 BLBS CTERM_FLAG,30$ : Branch if CTERM 
OD4E'CF 00 FB Oe4 a6 CALLS #0, W“ONSMSGDONE : call read routine 
3 ranc 
0EB 07 30S: 
000O'CF 00 FB : $8 408 CALLS #0,W*CTERM_UNSMSGDONE ; Call read routine 
‘Ga + Boe 
or \¢ : Set up “Y and assign channels needed for out of band processing 
F 14 $010_S CHAN = CNTRLCHAN - WE WILL ALWAYS HANDLE “Y 
F 15 FUNC = #10$_SETMODE!IOSM_CTRLYAST - 
F i6 P1 = CNTRL ~ 
oF P2 = #10$M_CTRLYAST 
119 i§ SASSIGN_S - ;CHANNEL FOR INCLUDE OUT OF BAND AST'S 
119 $9 
| 


N 4 


VMSRT - VMS PROTOCOL WITH CTERM HOOK ut tt BS 9 Oe i738) AX/VMS Macro V04-00 Page 
v04-000 VMSRT = START UP VMS TO VMS PROTOCOL -SEP-1984 05:16:06 CRTIPAD.SRCJVMSRT.MAR;1 
12E 
12E : SASSIGN_S = ; CHANNEL FOR EXCLUDE OUT OF BAND AST'S 
12E 4 DEVNAM = TTYDESC 
1¢ 5 CHAN = OUTBANDEXC 
14 5 SASSIGN_S - ;CHANNEL FOR ABORT OUT OF BAND AST'S 
14 8 DEVNAM = TTYDESC, =- 
14 3 CHAN = OUTBANDABO 
3E OOOOOOOO'EF €E9 015 1 BL 8E cw ETERR_FLAG. 996 ; Branch if not CTERM 
13 : “DEVNAM = TTYDESC, = 
\3f : CHAN = CTRLO_CHAN ; “0 channel 
Bie 6 $Q10W_S iret CHAN,= 
174 7 FUNC=#10 SETMODE ! 10$M_OUTBAND ! 1O$M_INCLUDE,- 
0174 3 Pi= CTERA_CTRLO_AST,=- 
0174 P2= #CTRLO_MASK 
019> 34). 998: 
0E71 30 019D 4g " -«BSBW «GE TBUF : Get a buffer for reading Link 
60 OQOO006DA'EF 9E B1A9 oi oalae epee g hay ; Insert state 
= = 
Q1A7 45 FUNC = #I10$_READVBLK - 
Q1A7 6 IOSB = AST$@_{0SB(RO) - 
Q1A7 4 ASTADR = AR TAANOLER - 
O1A7 48 ASTPRM = RO - 
01A7 49 Pi = ASTST_BUF(RO) - 
01A7 50 P2 = #MAXMSG 
BPE 23 ONERROR QUIT ; 
O1FC $36 : The non teu ing pice of code was formerly done before reads to net were done 
Bice 33 ; This caused disconects sent as a result of driver not found to be lost 
OOOOOOFO'EF  QOO000000'EF B80 ates 2$ . MOV TERMUNIT, INIT_MSG+4+RDPS$W_UNIT+ASTST_BUF 
0207 58 : Check for CTERM protocol. Note that the VAX protocol now 
07 59 ; sends what is interpretted as an unsolicted data message 
07 60 ; which in turn starts up a process on the other end. 
07 61 ; The CTERM protocol module first expects to read and respond 
07 6¢ ; with INIT messages before proceeding to the unsolicted 
4 o7 ; data message. 
15 eaie4'o4 8 7 65 LBS CTERM_FLAG,100$ 3; branch if VAX 
50 OOOOOBE * EF 3 E 06 MOVAB | SG,R 3; Assume VAX protocol 
51 OQO000000A'SF 0D 1 6 OVL #INIT_MSGLEN,R1 > Length of message 
52 26_A0 3 1 68 MOVAB ASTST~BUF (ROS .R2 ; Address of buffer 
07A1 $ $5 1008 BSBW WRITE-TO_NET_SYNC 3; Write message to NET 
04 71 "RET : 


BS 
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ASTHANDLER = DISPATCH AST'S -SEP-1984 03:16:06 CRTPAD.SRCJVMSRT.MAR; 1 (1) 
4 23 a .SBTTL ASTHANDLER = DISPATCH AST'S 
4 f3 + FUNCTIONAL DESCRIPTION: 
4 r : CALLS THE APPROPRIATE AST HANDLING ROUTINE 
4 hi : CALLING SEQUENCE: 
4 1: AST 
4 : INPUT PARAMETERS: 
4 5: THE AST PARAMETER IS A POINTER TO THE ADDRESS OF THE AST HANDLING 
4 6: ROUTINE 
0224 87 ; 
0224 88 : IMPLICIT INPUTS: 
Bsse 9; 
4 30 : NONE 
§ 4 32 : OUTPUT PARAMETERS: 
§ 4 294: NONE 
0224 95 ; 
0224 296 : IMPLICIT OUTPUTS: 
0224 97 ; 
0224 298: NONE 
0224 299: 
0224 300 : COMPLETION CODES: 
0224 01 ; 
0224 bg : 
0224 303 : SIDE EFFECTS: 
0224 04 ; 
0224 305: NONE 
0224 306: 
0224 07 ;-- 
0224 308: 
0 4 309 ASTHANDLER:: 
0000 4 310 -WORD 0 
50 04 AC D0 0226 311 MOVL  4(AP),RO : GET AST PARAMETER 
0080 00 FB 022A 318 CALLS  #0,a(RO) : CALL SERVICE ROUTINE 
04 O22 31 RET 
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RM 
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: .SBTTL PROCMSG ~ PROCESS A LINK MESSAGE | 
FUNCTIONAL DESCRIPTION: | 
ACT ON A QIO REQUEST PREVIOUSLY RECEIVED ON THE LINK | 
CALLING SEQUENCE: 
CALLS #0, PROCMSG | 

INPUT PARAMETERS: 
| 


zo 


ee ee a ee od 


) 


RO IS A POINTER TO AN AST CONTROL BLOCK 
IMPLICIT INPUTS: 


READQIO 
WRITEQIO 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
READQIO 
WRITEQIO 
RETSTATUS 


COMPLETION CODES: 


SIDE EFFECTS: 
A QI10 TO THE TERMINAL MAY BE PERFORMED. 


PROCMSG: 
OOFC eWORD “M<R2,R3,R4,R5,R6,R7> 
; CTERM module calls CTERM_PROCMSG directly 
57 OC AO 3C¢ MOVZWL ASTS$W_OPCODE(RO) ,R7 ; Fetch internal opcode 
8 AQ «AB BISW2 ASTS$T_BUF+RDP$W_MOD(RO),- 
56 AO ASTS$T~BUF +RDP$W_OPCODE (RO) ;ADD OP MOD 
56 50 00 MOVL RO,R6 


: Case instruction uses a byte, note that prompt flag 
is in second byte. 


CASEB = R7, #OP READ. AOP_SENSEMODE 
D READMSG-4$ 
"WORD WRITEMSG-4$ 


-WORD SETMSG-4$ 
~WORD SENSEMSG-4$ 


re ee em ml aml am ee ee ee ee ee i ns en en ne Bs ns ns Bn Be es ee ee ie ee ee ke 

SSDP DDD DDD AD TI BS BS BB WAI IIIinnnonnonororofrorny 

=O OD NAU EWN OS OD NA UE WIN SO OOD NA UNE WIN 3 O ODNAU EWN 0 OONAU EWN OWOONOU 
aS 
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v02=000 PROCMSG = PROCESS A LINK MESSAGE Breer Tabs Si lasbe FARANDS Magra Nee 00, er v04 
04 0249 
4A $ 


;_ A READ QI0 REQUEST 
ADMSG: 


EADMSG 
60 09900950 "¢r 3 MOVAB QIODONE,ASTSL_STATE(RO) ;NEW STATE 
52 26 AO MOVZWL ASTS$T_BUF+RDPSW_OPCODE (RO) ,R2 
; *** Note that the following two instructions are obsolete in a roundabout 
; sort of way. LOGINOUT is now smart enough (in V4) to not do a purge typeahead 
; to a remote terminal. Connections to a V3.x system will then have the 
; type ahead purged. 


OL 
oc 
7 
5g 
4A 74 
4A 75 
4A 4 
1 y 
2 355 
5 0 
55 
52 Q00005D7'EF AA 55 4 BICW FIRST_READ, R2 ; Don't purge type ahead on first read 
Q000005D7"EF B84 O és 8? CLRW FIRST_READ ; «but only an tRe first read... 
56 30A0 3 6 6 87 MOVZWL ASTST_BUF+RDPSL_TT_BCNT(RO) ,R6 
54 D4 0266 88 CLRL R4 
55 D4 8 68 89 CLRL R5 
57 0100 8F 8B 6A 90 BITW #OP_PRMPT,R7 
0 13 O26F 91 BEQL 
54 39 A 9E 0271 4 MOVAB ASTST_BUF +RDPST_TT_TERM+1(RO) ,R4 ; TERM MSG SIZE ADDR+1 
55 FF AG 9A 0275 9 MOVZBL -1(R4J, -TERM MSG SIZE 
54 55) «CO (0279S 39% DDL2 R5,R4 | ;PROMPT SIZE ADDRESS 
55 84 OC 6 As 99 ‘ae MOVZWL (R4)+,R5 
OQOOO0O01E * EF 38 AO 9A O27F 97 MOVZBL ASTST_BUF+RDPST_TT_TERM(RC) ,RTERMDES ; TERMINATION CHARS 
04 12 0287 98 BNEQ 30$ 
0289 399 ; USE DEFAULT 
51 D& 0289 400 CLRL R1 
07 11 0288 401 BRB 40$ | 
028D rt 30$: 

51 O000001E"EF 9E O28D 405 = MOVAB__RTERMDES, RI | 
00000022'EF 39 AO 9 0294 405 MOVAB ASTST_BUF ¢RDPST_TT_TERM+1(RO) ,RTERMDES+4 | 
OQOO00SA7 ‘EF 2A AO dO asre 406 MOVL AST$T BUF +RDPS$L_REFID(RO) ,READQIO 

OOOOO000"EF 95 O2A4 407 TSTB INDFLAG | 
77, «12 «O2AA 408 BNEQ 100% ; Branch if reading from a file 
Oeac 409 458: 
53 50 »00 8 . 419 MOVL RO,R3 ; Save in case error later | 
O2AF $16 ; Test for read verify 
O2AF 413; | 
00000000 ° 8F E1 O2AF 414 BBC #10$V_EXTEND,- 
OC 26 AO 0288 212 ASTST_BUF ¢+RDPSW_OPCODE(RO),46$ ; Branch if not read verify 
04 A4 54 (CO O2B 419 ADDL R4,4(R4) ; relocate address | 
0c AS) «= 554—SOC0s«éOO PBC $18 ADDL R4,12(R4) 3; relocate address 
14 a4 54 (C0 CO O41 ADOL R4,20(R4) : relocate address 
C4 420 46S: 
C4 421 $Q10_S CHAN = READCHAN ~ | 
8 C6 & § FUNC = R2 = 
C4 4 IOSB = AST$Q_JOSB(RO) - 
C4 424 ASTADR = ASTRANDLER - 
C4 425 ASTPRM = RO - 
ch 4 : Pi = ASTST_BUF+RDP$T_TT_RDATA#2(RO) - 
C4 428 P3 = ASTST_BUF+RDPSL_TT_TIMOUT(RO) - 
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PROCMSG = PROCESS A LINK MESSAGE ates 86:10:88 YRIPA AD. SRC VMSRT. MAR; 1 0! 
C4 429 P4 = R1 - 
(4 430 P5 = R4 - 
7 d 1F_NO -2u0tA” os QuIT 
03 5 58 fe 4 j BLES ~ RO,47$ : branch if ok 
029 1 1p oe ies Q16_ERR : Handle error 
O2FE 31 4 $ BRW PROCMSG_EXIT 
438 3 
ret ; Read from a file, not the terminal 
441 
6 age 100$: 
51 OD 44 PUSHL 
51 3A A0 SE 0325 444 MOVAB RSTST _BUF +¢RDPST_TT _RDATAS2¢ROS, R1 
0329 445 ; Address for input 
| 4 83 9 466 MOVL : Size for inpu 
0c0B 032C 447 BSBW Wing INDREAD : Try the indirect file 
51 BEDO O32F 448 POPL = iR1 : Save 
FF77 «631 «03 ¢ 449 BRwW 45$ : If routine returns here, 
8 450 ; RMS got EOF, must read from TTY. 
0335 9451 
0335 43¢ : 
0335 453 : A WRITE Q10 REQUEST 
0335 454 WRITEMSG: 
60 O000095B'EF 9€ 0335 455 V QIODONE ,ASTSL_STATE(RO) ;NEW STATE 
5 6A0 3C 033C 456 MOVZWL AST$T_BUF +RDPSW_OPCODE (RO) ,R2 
5 0 a0 3C 0340 457 MOVZWL ASTS$T“BUF+RDPS$L~TT_BCNT(ROS ,R3 
QOOOOSAB'EF 2A A0 00 0344 458 MOVL  AST$TBUF +RDPSL-REFID(RO) ,wRITEQIO 
034c 39459 $Q10_S CHAN = WRITECHAN - 
034C 460 FUNC = R2 - 
034C 461 10SB = AST$Q 10SB (RO) - 
034¢ 46¢ ASTADR = AST TRAN DLER - 
034C 46 ASTPRM = 
034C 464 Pi = A ST “BUF #RDPST_ TT_WDATA(RO) = 
O34¢ 465 P2 = 
0 4C 466 P4 = ASIST BUF +RDPSL_TT_CARCON(RO) 
374 467 IF NO_QUOTA 
O27E «(31 6 A 468 BRO PROCMSG_EXIT 
fh 470 : A SET MODE Q10 REQUEST 
O3A3 471 «<SETMSG: 
26 AO 0000' BF 83 A 47@ #108%_OUTBAND , ASTST _BUF *RDPSW_OPCODE (RO) 
03 (1 AD 47 BNEQ 49$ 
0098 «= 31 AB 474 BRW 60$ 
AE 475 ; HANDLE AN OUT OF BAND AST REQUEST 
57. 50 pO O3AE 476 i9s: MOVL RO AVE RO 
53-30 Ag 9E ier MOVAB AST$T_BUF+RDPSB_TT _oureai@ ),R3 -START OF DATA (MASKS) 
06 63 «91 5 478 CMPB ss (R3) , BG FOR NOW, IT MUST BE A SINGLE LONGWORD 
03 13 B 479 BEQL «=s«518 
0265 =31 A 480 BRW OUTBAND 
Of000ScB'EF 01 a3 01 481 51$ CMPL =: 1(R3), IRERASK+4 
31 i 5 eee , BEQL. 538 :DON'T BOTHER WITH THE Q10 
OOO00SCB'EF 01 A3 OD (7 4 MOVL  1(R3), INCRASK +4 :GET THE INCLUDE MASK 
CF 4B $Q10W_S CHAN = OUTBANDINC - 
CF 86485 FUNC = #10$_SETMODE! 1O0$M_OUTBAND! IOSM_INCLUDE - 


tae 


v04-000 
046 05 A 
0221 
QOOOOSDS"EF 06 a 
QO0005D3"EF 06 A3 


50.057 
Q000095B"EF 00 
0108 

26 AO 80000" BF 
29 


60 0000095B'EF 
AO 


00G005A7 "EF sf AO 
26 AO §8=0000'8F 


GOA2 

30 AO 
000005A6'EF 
03 


OO9A 
000005A6 ‘EF 


0116 


000005A6'EF 
sie 
26 AO aoe 4 


04 AO 00000000 00000000'8F 


00C1 


= VMS PROTO 
PROCMSG = P 


OW 0-9 WTWOWwWO 
O—"WYIWw  FUWWOOm 


31 


C 
R 


0 
0 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
5 
5 
P) 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
P) 
: 


Ooo NN HNOM 


+> 44 4 4 > 9-4 4 4 > > 4 9 9 OA 
OVING DW OOVUWS UI S PS MOP MOWAT O— MOON 


ae 
BF PWIA AAI IPRNPOPEIPINININD BQ OOD OCDOOCOOOOOOOOO0OO00MM@M@E OF 


ROOD NOA NE WIN SOO AUN WIN  O OD NAME WWM 0 ODNAUN EWN O OODNAUE WN OOO~nNO 


F 5 
ITH CTERM HOOKS 16-SEP-1984 02:17: VMS Macro V04-00 
S A LINK MESSAGE -SEP=1984 88:18 ‘8 LatPR PAD. SRCJVMSRT.MAR; 1 
P1 = OUTBANDAST - 
P2 = #INCMASK 
53$ CMPS 3 (R3) #4 :AGAIN, A SINGLE LONGWORD 
GRu¢ QUTBAND_ERR 
55$: CMPL gin3) ,ERCRASK*4 
BEQL 8$ :DON'T BOTHER WITH THE QI0 
MOVL 6(R3) ,EXCMASK +4 SEXCLUDE MASK 
$Q10W_S CHAN = OUTBANDEXC - 
FUNC = #I0$ SETMODE! 10$M_OUTBAND - 
Pi = OUTBANDAST 
Pe = #EXCMASK 
58S: OVL R7,RO :RESTORE RO 
CALLS #0 a10D0N 
RW PROCMSG_EXIT 
60S: Bi tw BOSH, NANGUP. ,ASTST_BUF +RDPS$W_OPCODE (RO) 
; HANGUP IS TREATED A PROGRAM EXIT 
ca QUIT —§ #SS$_NORMA 
MOVAB QIODONE, gAstst STATE (RO) :NEW STATE 
MOVZWL ASTS$T_BUF+RDPSW_OPCODE(RO), 
MOVL AST$T~ “BUF sRDPSL REF ID(RO) ,READQIO 
BITW  #IOSM~CTRLCAST,ASTST_BUF +RDPSW_OPCODE (RO) 
BNEQ 72$ 
BRW 80$ 
- CONTROL=C ENABLE OR DISABLE 
72$: ist ASTST_BUF*RDPSL_TT ASTPRM(RO) 
TSTB  CNTRCFLAG :1$ THERE ALREADY ONE ENABLED? 
BEQL 74$ 
BRw 90$ YES 
74$: INCB — CNTRCFLAG 
$Q10_S CHAN = CNTRLCHAN - : ENABLE 
FUNC = #10S- SETMODE! 10SM* CTRLCAST - 
10SB = AST$O_IOSB(RO) - 
STADR = ASTRANDLER - 
ASTPRM = RO = 
Pl = CNTRLC_AST 
P2 = #IOSM CTRLCAST 
IF NO_QUOTA QuIT 
BRO PROCMSG_EXIT 
75$: $Q10_S CHAN = CNTRLCHA 
FUNC = #10$ SETHODE 108M CTR CAST - 
10SB = AST$Q_[OSB(RO) 
ASTADR = ASTRAND PER - 
ASTPRM = R 
CLRB CNTRCELAG :NO “C'S ENABLED 
BRW BRO OCMSG EXIT 
80S: Bi tw é #1O$M_CTRLYAST,ASTST_BUF +RDP$W_OPCODE (RO) 
j GONTROL=¥ Y ENABLE OR DISABLE 


SS$_NORMAL ASTSQ 10SB(RO) 
SDCLAST S ASTADR = ASTHA ANBLER = 


BRW PROCMSG “EXIT 


nao 
-—-O 


:PRETEND WE DID THE Q10 


= VMS PROTO 


T T 
000 PROCMSG = P 


“ve 
Mea 
>=xr 
rt 
it 
zm 


G 5 
RM_ HOOKS 1 mite ts 9 Oe] :17:21 YAX/VMS Macro v04-00 
K MESSAGE “SEP-1984 05:16:06 CRIPAD.SRCJVMSRT.MAR; 1 


zo 


:N OR 
MOVW RO, AST$Q_IOSB(R3) 'MAKE SURE STATUS IS IN 10SB 
SDCLAST_S is TADR = = ASTHANDLE LER - 


ASTPR 
BRB PROCHSG. "EXIT 
PROCMSG_EXIT: 


OUTBAND_ERR: 
REVINSG. S MSGVEC = BADOUTBAND 


OL 
oc 
3 50 vO 056 43 MOVL RO,R3 sWE NEED THE PUFFER ADDRESS LATER 
a 0 b0 368 44 MOVL Re R4 “ASSUME SHORT FORM 
00000000' FF 30 A 66 545 MOVO AST$T_BUF+RDPSO_TT_CHAR(RO) , CHARBUF 
OO000000'EF 9 26 46 TSTB PROTOLECO :IS IT LEVEL 0 
1 4 54 BEQL 105$ 
io See. 7 4 ADDL #4,R4 ;LONG FORM 
O0000008'EF 44 A0 OD 258 rk MOVL ASTST BUF +RDPSL_TT_CHARZ( RO), CHARBLF +8 
381 20 105$: $QI0_s CHAN = REA DCHAN™ = 
3 = 
581 3g I0SB = AST$Q_IOSB(RO) - 
581 5 ASTADR = ASTRANDLER - 
0381 34 ASTPRM = RO - 
81 5 Pi = CHARBUF - 
0581 336 Pe = R4 = 
0581 55 P3 = ASTST_BUF+RDPSL_TT_SPEED(RO) - 
098: 238 P4 = ASTST BUF +RDPSL-TT-PILL (RO) - 
0581 59 P5 = AST$T-BUF+RDP$L_TT PARITY (RO) 
$380 560 ; TAKE CARE OF NOT ALWAYS GETTING AST ON ERROR 
5 RO,PROCMSG EXI :NO ERROR 
6— 50 €8 0980 6 BLBS 0, $G_EXIT 
’ 
0383 63 QIO_ERR: 
04 a3 50 BO 0583 64 MOVW  RO.ASTS$Q_10SB(R3) :MAKE SURE STATUS IS IN I0SB 
0587 265 SDCLAST_S S ASTADR”= ASTHANDL LER - 
R 0 x 
59 «11 05¢6 567 BRB PROCMSG_EXIT 
05C8 569 : A SENSE MODE Q10 REQUEST 
05¢8 570 SENSEMSG: 
53 50 vo 05¢8 571 MOVL R3 WE NEED THE BUFFER ADDRESS LATER 
60 0000095B'EF  9€ 058 372 MOVAB QIOQDONE,ASTSL_STATE(RO) :NEW STA 
6A0 3C O05D2 57 MOVZWL AST$T_BUF+RDPSW_OPCODE (RO) .R2 
000005A7°EF gh AO 00 0506 57% MOVL  ASTST “BUF +RDPS$L_REFID(RO) ,READQIO 
8 AO 7C O5DE 575 CLRQ  AST$TBUF +RDP$Q~TT_SCHAR(RO) 
AO D CLRL = ASTS$T =BUE +RDP Q-TT~SCHAR+8(RO) 
40 AO 424 «6(05E1)«=— 576 $ $0 8(RO 
beee  8o8 set AAS ppb 
054 579 10SB = AST$Q_I0SB(RO) - 
054 580 ASTADR = ASTRANDLER - 
054 581 ASTPRM = RO - 
O36 382 af = ASIST. BUF +RDP$Q_TT_SCHAR(RO) - 
0609 584 ; TAKE CARE OF NOT ALWAYS GETTING AST ON ERROR 
L x 
debe i B BS RO,P ROCR $G_EXIT 
61 
0610 oes 
O6if 89 
621 390 
621 91 
a 
3 36 
Po: 
65A 59 


Page 11 
. (1) 


VMS 


HS 
VOa~000 LINKRECV = PROCESS A RECEIVED MESSAGE 'S-SEP=19B4 08:10:00 ERTPADSSRCIVRSKT-MAR:1 © aS 
5A 9 vex *SBITL LINKRECY = PROCESS A RECEIVED MESSAGE 
60) { FUNCTIONAL DESCRIPTION: 
608 PROCESS THE AST INDICATING THAT A MESSAGE WAS RECEIVED ON THE LINK 
05 ; CALLING SEQUENCE: 
O7 CALLS #0, LINKRECV 
O09 ; INPUT PARAMETERS: 


RO POINTS TO AN AST CONTROL BLOCK 
; IMPLICIT INPUTS: 


WRITEQIO 
READQIO 


: OUTPUT PARAMETERS: 
: NONE 
+ IMPLICIT OUTPUTS: 


AN ENTRY MAY BE ADDED TO THE QUEUE OF PENDING READS OR WRITES. 
RETSTATUS 


; COMPLETION CODES: 


; SIDE EFFECTS: 


A NEW READ OF THE LINK IS INITIATED. IF THERE IS A ERROR ON THIS QIO, 
A SWAKE IS ISSUED TO CAUSE A PROGRAM EXIT. 


A PREVIOUS 1/0 MAY BE CANCELED 


“IF DF ASSEM_TRACE 
TRACE_RECV: 


PDD PV PV PV PV PVP SIUSUSUS SV SVSV SSVI USUS US ISTSVSUSUSUSUS SISSIES US USS ISIS 
foorrrrrrrrrrrrrrrrrr rr rrr rrrrrrrrrrrrrrrr>r> 


SOOOOOCOCSOSOOOSOOOOOOOOOOOOOOSOOOSOOSOOOOOOOOOOOOOOOOO OOOO OOOOOOO 


DAYAR AAA DAD DD OD OOO OO OO OS Os OS OS OO OS OO OS OS OS OS ODA APA AAA AAA AAA AO 


OE WN OOD NA NE WIN 9 OD NAME WIN O ODNOAU EWN O OONOU SWI O 


3F PUSHR #*M<RO,R1,R2,R3,R4,R5> 
51 96 a0 C MOVZWL ast$_fos6+2(R0} .Ri 
52 6 A E MOVAB  AST$T-BUF (RO) ,R2 ; 
53 00000000°EF 3 MOVAB DBGSLINKRECV,R3 ; Message received from net 
F992° 3 68 BSBW pecs TRACe 19 3 «e. log input 
3F BA 066 POPR  #*M<RO,R1-R2,R3,R4,R5> 
‘ee BRB TRACE_ CONTINUE 
, .ENDC 
7 LINKRECV_ERR: 
52. 04 A 3C 7 MOVZWL ASTS$Q JOSB<RO) .R2 :SAVE ERROR STATUS 
0000'8F 52 Bi 0676 CMPW =s«R2, #SS$_ABORT 
iF 12 78 BNEQ 
00000597"EF 52 0D 7D MOVL RZ, LINKERR ;SAVE ERROR 
84 SSETIMR_S DAYTIM = THREESEC - JUST IN CASE MAILBOX DOESN'T GET REASON 


Baa ee ee eo rE a eee ere 


VMSRT = VMS PROTOCOL WITH CTERM HOOKS 19-SEP-1984 09:17:31 AX/VMS Macro V04-00 Page 
v04=000 LINKRECV = PROCESS A RECEIVED MESSAGE -SEP-1984 03:16:06 CRTPAD.SRCJVMSRT.MAR; 1 
684 6 $ ASTADR = LINKGONE 
94 698 6 108: RET ;LINK BROKE - LINK MBX WILL GET REASON 
0000' CF 5 069 6 8 208: TSTB W*WAKEFLAG ; has QUIT already happened 
F9 12 O6A 6 BNEQ 3; if so pgrere error 
6A2 660 SPUTMSG_S MSGVEC = DECNETERR :LINK ERRO 
685 661 QUIT “R2 
6DA eg LINKRECV:: 
008C O6DA 664 “WORD “M<R2,R3,R7> 
92 04 AO. ES 6p 665 BLBC AST$Q_105B(RO) ,LINKRECV_ERR sERROR ON LINK READ ?? 
Oct $69 .1F DF ASSEM_TRACE 
01 £1 06€0 668 BBC #RTLOGSV_TRACE,- 
0000' CF 6E 669 W*RTLOG FLAGS, = 
93 6E 670 TRACE_CONTINUc : branch if not tracing 
FF71 «8631 Q6E6 671 BRW TRACE_RECV 3; branch if tracing 
GE 676 TRACE _ CONTINUE 
06 00000000'EF £9 O6E9 674° BLBC CTERM_FLAG,20$ 
F9OD' 30 6F9 675 BSBW = CTERMTLINKRECV 
0072 «31 O6r 5 676 so BRW 100$ 
51 26 Ag 3¢ dere 678 : MOV ZUL ASTST BUF +RDPSW_OPCODE (RO) ,R1 
ceaas | ae Vee 5 3 MOVEGL (Rode RST “COUNT 
ele es a Rees : 
37s «02 Ae 3¢ 9708 684 MOV ZWL g(R2).R? s INTERNAL OP CODE 
52. 04 CO 0711 686 408:  ADDL2 #4,R2 :SKIP 
eF 53 FS 714 687 ai SOBGTR R3,30$ 
0c AO 57 B80 0717 689 MOVW  R7,AST$W_OPCODE(RO) : Save for later 
6 38 32 Orie bor i ae 
o000088¢ "EF 16 07 0 69¢ JS8 BROADCAST :GO BROADCAST IT 
05 37 9 07 8 694 60S: CPB R7,#OP_CANCEL 
00000780 "EF 16 07 696 Js8 CANCELIO :GO CANCEL IT 
02 37 9 3 698 70$: cHPB R7,#OP_WRITE 
73A $80 : A WRITE G10 
000005AB EF 05 075A 01 TSTL WRITEQIO 
74 708 ; NO WRITE IN PROGRESS 
FAES CF 00 FB 0742 704 CALLS #0, PROCMSG 
047 , 5 se 106$ 
000005BB'FF 60 OF 0749 7 4 INSQUE (RO),aWRITEQ+4 ;QUEUE IT 
16 «11 u , g oie BRB 100$ 
7 £10 ; A READ OR SETMODE OR SENSEMODE 
00000547" EF DS 07 71 TSTL READOIO 
7 12 07 712 BNEQ 5 


VAS 
v04 


VMSRT = VMS FROTOCOL WITH CTERM HOOKS 16-SEP-1984 02:17:21 VAX/VMS Macro v04-00 Page 
v04-000 LINKRECV = PROCESS A RECEIVED MESSAGE gn seen :16:06 CRIPAD.SRCJVMSRT.MAR;: 1 ’ 
75A 713 ; NO READ IN PROGRESS 
FADO CF 00 FB 73h 714 CALLS #9 PROCMSG 
11 ior £13 ane BRB 106$ 
000005B3'FF 60 OF 761 at ee INSQUE (RO),@READQ+4 ;QUEUE IT 
08A6 30 ee at SBW Ss GE TBUF :GET A BUFFER FOR READING LINK 
60 FFOB CF 9€ i: 720 MOVAB  LINKRECV, (RO) 
7 721 $Q10_$ (CHAN = LINKCHAN - :READ LINK AGAIN 
770 7 ; FUNC = #10$_READVBLK - 
770 7 10SB = AST$O_IOSB(RO) - 
77 726 ASTADR = ASTRANDLER - 
770 «705 ASTPRM = RO - 
0770 7 : P1 = AST$T_BUF(RO) - 
0770 7 P2 = #MAXMSG 
16 50 €8 0798 728 BLBS  RO,110$ :WAS THERE A LINK ERROR 
00000597'EF 50 00 0795 729 MOVL RO. LINKERR :SAVE ERRO 
O7A5 730 SSETIMR_S DAYTIM = THREESEC - JUST IN CASE MAILBOX DOESN'T GET REASON 
O7A5 = 731 ASTADR = LINKGONE 
04 O78C 7 : 110$: RET 
07BD 733; 
O7BD 734: 
Q78D 735; 
07BD 136 : CANCEL AN 1/0 
07BD 737: 
078D 738 CANCELIO: 
52 50 v0 O7BD 739 MOVL _—RO, R2 
07c0 740 SCANCEL_S CHAN = CNTRLCHAN ;DISABLE “C ON A CANCEL 
QOGOOSA6'EF 94 O7CE 741 CLRB  CNTRCFLAG [NO CONTROL=C'S ENABLED 
50 52 00 0704 4g MOVL  R2,RO 
QOOOOSA7"EF 2A A0 D1 O7D7 74 CMPL AST$T_BUF +RDPSL_REF1D(RO) ,READQIO 
15 12 O7DF 744 BNEQ 208 
07E1 745 ; CANCEL THE READ 
0000105F'EF 16 O7E1 746 JSB BUF FREE 
O7E7 74 SCANCEL_S CHAN = READCHAN 
05 O7F5 748 RS 
QOOOOSAB'EF 2A AQ D1 O7F6 749 208: CMPL § ASTST_BUF +RDPSL_REFID(RO) ,WRITEQIO 
15 12 O7FE 750 BNEQ 
0800 751 ; CANCEL THE WRITE 
QO0010SF'EF 16 0800 138 JSB BUF FREE 
0806 «75 SCANCEL_S CHAN = WRITECHAN 
05 0814 754 RSB 
819 755 30S: 
51 QOO00SAF'EF 9€ 081 136 MOVAB READQ,R1 :GET QUEUE OF PENDING READS 
51 $1 9E 1¢ «6757 318: MOVAB (R1),R1 
OO000SAF * BF 1 01 1F 46758 CMPL R1,#READQ 
09 «13 6 759 BEQL 328 -END OF QUEUE 
AA 01 760 CMPL ASTST_BUF+RDPSL_REFID(R1),- 
A AO B 761 ASTS$T~BUF +RDPSL REF 1D(RO) 
12 D 168 BNEQ 318 ;TRY THE NEXT ONE 
1 F 76 BRB 9$ *GO CANCEL IT 
51 00000587'EF 3 1 764 328: MOVAB WRITES R1 :GET QUEUE OF PENDING WRITES 
1 $1 D 8 765 33$:  MOovVL  (R1).RI 
00000587 ' BF 1 01 766 CMPL = R1,#WRITEQ 
09 13 0842 76 BEQL 348 END OF QUEUE 
A Al D1 084 768 CMPL §ASTST_BUF+RDPSL_REFID(R1),- 
A AO 47 76 AST$T~BUF +RDPSL REF ID(RO) 


K 5 


= VMS PROTOCOL WITH CTERM HOOKS Ig-SEB-1984 03: 217: :31 AX/VMS Macro V04-00 Page 15 
LINKRECV = PROCESS A RECEIVED MESSAGE -SEP-1984 03:16:06 CRTPAD.SRCJVMSRT.MAR; 1 (1) 
1 49 2 BNEQ $ sTRY THE NEXT ONE 
1 48 77 BRB $ :SAVE THE CANCEL = WRITE NOT DONE YET 
0000105F 'EF 16 4p 772 36$: JSB BUF FREE 'Q10 ALREADY DONE = THROW OUT THE CANCEL 
0 53 77 RSB 
54 774 39S: 
51 61 OF 0854 775 REMQUE (R1),R1 ;REMOVE THE ENTRY 
00000571'EF _ 2A Al DO 0857 ad: MOVL  AST$T_BUF+RDPSL_REFID(R1),CANMSG+RDPSL_REFID 
QOOOO10SF'EF 16 O85F 77 JSB BUFF FREE ;WE DON’T NEED thé CANCEL ANYMORE 
1 vy) 65 a MOVL R1,R 
QOOO10SF'EF 16 0868 77 JSB BUF FREE ;WE DON'T NEED THE Q10 EITHER 
86E 780 $Q10_S be = LINKCHAN - ;SEND THE CANCEL COMPLETE MSG 
BOE f 1 FUNC = 2 08.0 WRITEVBLK = 
B6E 7 ‘ P2 = pROPSE _HEADERLEN+8 
4a 784 —— QuIT 
05 0888 785 
088c 7 : ; 
O8BC 787: 
08BC 788 : 
Q8BC 789 ; BROADCAST TO THE TERMINAL 
08BC 790 
O8B¢ 791 BROADCAST: 
0000057F ' EF 30 AO =«6—p0 «(08BC 198 MOVL § ASTS$T_BUF +RDP$L_TT_BCNT(RO) ,BRDDESC COUN 
00000583'E 38 AO 9E O08C4 79 MOVAB AST$T BUF +¢RDPS$T TT “WDATA(ROS, BRDDESC+4 a ADDRESS 
OAOD 8F 06000588" FF 8 BCC 194 CHP @BRDDESC+4, #*XAOD sCHECK FOR CRLF 
00000583'FF B4 08D7 796 CLRW @BRDDESC+4 sREMOVE IT - BRDCST ADDS ANOTHER ONE 
52. 50 00 O8DD 797 10$: MOV RO,R 
O8E0 798 SBRDCST_S MSGBUE = BRDDESC - 
O8E0 799 DEVN TTYDESC 
30 a2. 50.)Ss 7D:«OBF7~—s 800 mova RO, AST $ BUF +RDPSG STATUS(R2) ; RETURN AN lose 
62 OQOOOOA9F'EF 9E O8FB 801 MOVAB PNKURTDORES ASTSL_ST/ E(R2) TATE 
26 A2 FFFE SF BO 0902 80¢ MOVW #RDPSC_END ASTST BUF sRDPSW_ OPCODE (R2) 4h STATUS MESSAGE 
28 A2 «BS O(0908 80 CLRW = ASTST = BUF +RDPSi_Ao (R2) 
0908 804 $Q10_S CHAN = LINK - ;WRITE MESSAGE ON LINK 
0908 805 FUNC = bios: y RITEVBLK - 
0908 806 OSB = AST$O_IOSB(R2) - 
443 807 ASTADR = ae DLER - 
908 508 ASTPRM = - 
09 09 Pl = AST$T BUF(R2) - 
09 810 P2 = PROP SR’ BHEADERLEN+8 
09 811 ONE RROR QUIT 
05 095A 812 RSB 


= VMS PROT 
QIODONE - 


L 5 
TER 5 “SEP-1984 AX/VMS Macro V04-00 Pose 1 
Bt 88:12:84 rath wat tS 


A COMPLETED. TERMINAL a! “SEP=19 RTPAD.SRCJVMSRT MAR; 1 
~SBTTL QIODONE - PROCESS A COMPLETED TERMINAL Q10 
FUNCTIONAL DESCRIPTION: 
HANDLE THE AST INDICATING THAT A TERMINAL Q10 HAS COMPLETED 
CALLING SEQUENCE: 
CALLS #0,Q10D0NE 
INPUT PARAMETERS: 
RO POINTS TO AN AST CONTROL BLOCK 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
RETSTATUS 
COMPLETION CODES: 


| 
| 
SIDE EFFECTS: 


OL 
OcE 
1 
1 
1 
1 
1 


oc 

PR 
: 
8 
8 
8 
1 
8 
8 
8 
: 
8 
é 
: 
8 
8 


A STATUS MESSAGE IS WRITTEN TO THE LINK. IF THERE IS AN ERROR ON THIS 
QI0, A SWAKE IS ISSUED TO CAUSE THE PROGRAM TO EXIT 


teal * al * ah sb sb ab Ab Ab db Ab Ab Ab Ab sb ah ahah abvabvab wah wah ah abvabval eal ah ah abel val val valealeal wal val ealvalealealeal 


att te et Tt tt ttt ptt botetbettbetbepapebeteapebatebebeapeabateatepeatepea 


3 
3 
3 
3 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
5 
5 
5 
5 
5 
5 
5 
6 
6 
6 
6 
6 
6 
6 
6 
‘ 


WOOO OOOOOOO OOOO OOOO OOODOODOOOOOOOODOVODODODOOVOODODOVOVOOOVOOOOOOOOONOO 
SODWNA NEW 9 ODN NE WWIN SO OOONIA UE WIN O OD NAU EWN OO NOUS WN OOODNOUS 


SOOSCSSCOOOOOSOOOOOOOO OOO SOSOOOOSOSOOOOOOOOOOOOOCOOO OOOO OOOO OOOOOO 


IODONE: : 
00BC .WORD “M<R2,R3,R4,R5,R7> 
0A 00000000' EF £9 BLBC = CTERM_ FLAG, 10$ 
F699" 30 BSBW CTERM“QIODONE 
D5 TSTL RO ; Was a message returned? 
12 BNEQ 60s Branch if yes 
31 a BRW 0$ : Exit if it not 
DS $ " -TSTL «= ASTST_BUF #RDPSL_REF ID (RO) ;CHECK FOR ZERO REF ID 
12 BNEG 208 
9A 097 MOVZBL #1,AST$Q_I0SB(RO) ZNO ERRORS 
FB 097 CALLS M#O:LNKWRTDONE ;PRETEND WE SENT IT 
04 , em RET 
3¢ 7 "  MOV2WL ASTSu_ OF OP CODE (RO) ,R? : Fetch internal opcode 
12 SNEG 
; IT WAS A READ 50 WE NEED THE COUNT 
3¢ MOVZ2WL AST$Q_I0SB +24 RO) RI SCHARACTERS BEFO RE THE TERMINATOR 
AO ADDU AST$Q"10SB+6(RO).R1 :TOTAL CHARACTERS 


Ww 
oo 
wip 
oO 


Oo 

~ 
OouIowun OW 
>A Wr 
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1 SENSEMODE 


“ 
oO 
aad 


RM HOOKS 16-SEP-19 17:21 VAX/VMS Macro V04-00 Page 17 
PLETED TERMINAL Q att} 883] 16: ‘66 FRIPAD SRe VMSRT.MAR; 1 - th 

R1,ASTST_BUF+RDPST_TT_RDATA(RO) ;SAVE IN LINK MESSAGE 

#3, ;SIZE OF READ DATA PLUS COUNT 

R7, #OP_WRITE 

40$ 

R1 :NO READ DATA 

50$ 


sASSUME NO DATA 
ie SETMODE 


BYTES OF DATA 
EROBEL END, ASTSI aBur snort: OPCODE(RO)  ;A STATUS MESSAGE 
AST$Q~10SB(RO) ASST _BUF +RDP$Q_STATUS (RO) 
pRDPST TT_RDATA,R1 
AST$T_BUF TRO) .R2 : SET ADDRESS OF WRITE MESSAGE 


WRITE_TO_NETX 


60 


53 


Nuvi 
ooww 
-—o TOO 
ovusrto 


50 8ED0 
50 04 A0 3C 


53 8EDO 
05 


QQOOOASF'EF YE 


53 F7E9 CF OE 


01 €0 
4D 0000'CF 


05 


00000000° t f 
eee 


ae 
“+z 
mo 


OOCOCCCOCOCOCOOCOCOOCOOCOOCOOOOCOOOOOOOOO 
PPrrrrrrrrrr POOODDOOOOOOOVDOoOoononoowo 

WAIN. M.MMIMIWMIAPIINIODO MI OMOOOOOOOOOOOOOOOO 
POOMAINOOO NOLO VUO SOWA LLLP LEE EE 


—v 
ow 
io 
2-4 


TE 
E TO LINK “SEP=19 


INPUTS: 


WRITE_TO_NETX:: 
MOVAB  LNKWRTDONE, E -ASTSL_ sare (nd) 
MOVAB ASTHANDLER.R 


WRITE_TO_NET:: 


IF DF ASSEM_TRACE 
BBS #RTLOGSV TRACE 
W*RTLOG_ FLAGS. E RACE WRITE 
TRACE _CONTINUE2: 


$Q10_.S CHAN = LINKCHAN - 
EFN = #RTSC_LINKEFN,- 
FUNC = #10$ QRITEVBLK - 
10SB = AST$Q_IOSB(RO) - 
ASTADR = (R3) - 
ASTPRM = RO - 
R2) - 


" 
ze 
=" 


P2 = 
pernnon QUIT 
RSB 


IF OF ASSER_ TRACE 
TRACE_WRITE: 
PUSHR #*M<RO,R1,R2,R3,R4,R5> ; 
MOVAB BG SL 1NK WRITERS 
BW DBG$T RAC 1, 
POPR #°M<RO.R1- R3. R4,R5> 
BRB TRACE ° cont INGE 


BBE BEE EEF FANN NNWMIAIAIAIGIPINININPININININID 4 2 OO SS SH DOOOOOOOCOCOCOOwWNO 
DOWD NA NEW OOD NA UE WIN  O ODNAU EWN @ O OOO NOAUE WW OC OODNOAUE WO ODIO 
. 


WOODOOOOOVOOOOO OOOO OOOODOOOOOOODOOODOODOODOOOO0O000000000 000000000 


m 
2 
=] 
oO 


N 5 
RM HOOKS 16-SEP=1 A - 
SE oR gelZ A } X/VMS Macro Vv04-00 Page 


RTPAD.SRCJVMSRT MAR; 1 


~SBTTL WRITE_TO_NET = WRITE TO LINK 


3 RO - AST BLOCK 
5 R1 = Length of message 
; Re - address of message 
3 R35 = AST routine to call (if called at WRITE_TO_NET) 
WRITE_TO_NET_SYNC:: ; RO,R1,R2 inputs 
PUSHL R ; Save R3 
CLRL 3 No AST 
PUSHL RO 3; Save block 
BSBB WRITE_TO_NET ; Write to net 
SWAITFR_S EFN'= MRISC_LINKEFN ; Wait for completion 
ee *! ; Failure? 
3; Restore AST block 
ROVE oly er eee ne) oe ; Fetch status 
= oes 3; Failure? 
R 3; Restore 
RSBe 3; Return 


Standard completion routine 
; New state 
AST routine 


3; branch if tracing 


;WRITE MESSAGE ON LINK 


Trace code 


~~ 
—oo 
! 
aneuk 
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= VMS PROTOCOL WITH CTERM HOOKS 1 
v04-000 LNKWRTDONE - A WRITE TO THE oC INK HAS COM ‘ =-ser- RTPAD.SRCJVMSRT.MAR; 1 


~SBTTL LNKWRTDONE = A WRITE TO THE LINK HAS COMPLETED 
FUNCTIONAL DESCRIPTION: 


HANDLE THE AST INDICA 
BY FREEING THE BUFFER. 


: CALLING SEQUENCE : 

CALLS #0,LNKWRTDONE 
INPUT PARAMETERS: 

RO POINTS TO AN AST CONTROL BLOCK 
IMPLICIT INPUTS: 


TING THAT A WRITE HAS COMPLETED ON THE LINK 


USFWS OO OONOUS UT 


fre. Sete Ge Ge Ge Ge Ge Ge Ge Be Se Se Ge Ge Se Ge Ge Se Ge Ge Se Ge Se Ge Ge Se Ge Se Se Se Ge Se Se Se Se 


OWODOOOOOOOOOOO0O0O00O0 
PAEAEAAASAA MANNII 


ooo 
AAO 
co 


NONE 
969 
370 OUTPUT PARAMETERS: 
a7¢ 3 NONE 
97 
974 : IMPLICIT OUTPUTS: 
975 : 
376 i NONE 
97 
978 : COMPLETION CCDES: 
979 : 
980 
981 ; SIDE EFFECTS: 
98¢ 
98 A BUFFER IS FREED 
84 THE QUEUE OF PENDING Q10'°S IS CHECKED 
3B -- 
987 
988 LNKWRTDONE: 
989 "WORD 
51 04 AO 990 BLBS § AST$Q_10SB(RO),20$ ZERROR ON LINK WRITE 22 
52. 04 A0 991 MOVZWL AST$Q~I0SB(RO).R2 [SAVE ERROR STATUS 
0000'8F 5 99 CMPW Re #SS$_ABORT 
01 99 BNEQ 108 
99 RET LINK K BROKE - LINK MBX WILL GET REASON 
995 10$ SPUTMSG_S MSGVEC = DECNETERR LINK ERR 
99 QUIT “R2 
06 00000000' 99 BLBC CTERM_FLAG,20$ 
F50D° 99 BSBW CTERMTLNKWRTDONE 
0042 BRW 40$ 
53 2AA 1 é 20$:  MOVL ASTST_BUF+RDPSL ~REF ID(RO) R3—ss SAVE_-ID 
056 1 SBW 4S s«BUFFR EASE fHE BUFFER 
000005A7'EF ; 4 CPL R gREADaLO UA § THIS A READ (OR SET MODE) 
90000547 EF 1 é CLRL _—« READQIO [FORGET ABOUT THE PREVIOUS ONE 
SAF ‘FF 1 REMQUE @READQ,RO 


SEP- AX/VMS 4- 6 9 
1986 $8;16;60 aS Tasks Man ot | 


— 


C 6 


VMSRT = VMS PROTOCOL WITH CTERM HOOKS 16-SEP-1984 02:17:21 VAX/VMS Macro V04-00 Pa 20 VMS 
v02-000 [NRURTDONE oo A WRITE TH THE CINK HAS COM SeSEPatone BSiiorda LAteNDsmeiuashy mages ms v04 
1D 0813 1 BVS 308 :NO MORE 
F715 CF 8 FB 513 % CALLS 38 procnse :GO PROCESS IT 
QOOOOOSAB'EF 53 O01 818 1011 30$: CMPL RS WRITEQIO sWAS THIS A WRITE 
, i F 1 1g BNEQ 408 N 
QOOOOSAB'EF 04 4 101 CLRL  WRITEQIO sFORGET ABOUT THE PREVIOUS ONE 
50 000005B7'FF OF OB2A 1014 REMQUE a@WRITEQ,RO 
05 1D 1 1015 BVS :NO MORE 
FOF7 CF 00 FB O0B33 1016 CALLS #0,PROCMSG :G0 PROCESS IT 
04 0838 1017 40S: RET 


; COMPLETION CODES: 


; SIDE EFFECTS: 
THE PROGRAM CAN BE ABORTED. 


| 
| 
| 
| 
‘oo } 
] 
! 
| 


= VMS PROTOCOL WITH CTERM HOOKS 16-SEP-1984 1 YAX/VMS Macro v04-00 Pa 1 | 
LNKMBXDONE = MESSAGE RECEIVED ON THE LIN mat Yi 88:15 ‘66 RTPAD. SRCJVMSRT.MAR; 1 - ay 
8 3 1 oan .SBTTL LNKMBXDONE = MESSAGE RECEIVED ON THE LINK MAILBOX 
8 3 : FUNCTIONAL DESCRIPTION: 
B39 : HANDLE THE AST INDICATING THAT A MESSAGE WAS RECEIVED ON THE LINK 
8 3 : MAILBOX 
: ? : CALLING SEQUENCE: 
8 ? ; CALLS #0,LNKMBXDONE 
8 3 : INPUT PARAMETERS: 
OB 3 : RO POINTS TO AN AST CONTROL BLOCK 
0B39 : IMPLICIT INPUTS: 
0B39 : 
$833 : 
0B39 : OUTPUT PARAMETERS: | 
0B39 : | 
0B39 : NONE | 
0B39 PY 
0B39 : IMPLICIT OUTPUTS: 
0839 : 
0B : NONE | 
0B : | 
i 


NKMBXDONE : 
~-WORD “M<R2> 


: First, check valid disconnects 


BOIWDwDwoocwowowownowowowvowowowvovo 


Fetch MSG code 


SII EB & AAW AAAI A AAA AAI AAW 
a a a el ell el a el el le ee a a ee a a ad 


SINNED PDP DADA ADP De PT BB BS BB BE WII 
MEAN 9 ODA NEA 9 OO NIA EWN SOOO NA NEW @ O DONA UNE WI SO ODNOU SW 


Mitttitittttt tt ttt ttt ttt ttt ttt 


52 26 a9 3¢ MOvZuL se BUF (RO) ,R2 ; 
0000'8F 52 81 F CMP #MSG$_DISCON : Disconnect? 
0 13 4 BEOL :; Branch if yes | 
0000 ° 8F 5 81 6 CMPW Re ,#MSG$_EXIT 3 Exit? 

0 13 B BEQL : Branch if 

0000 ' 8F 36 81 D CMPW Rs #MSG$_ABORT ; Log out - qnore e it 
2 12 £ 108 BNEQ 20§ ; Not a valid shutdown message... | 
: ; on #SS$_NORMAL ; Exit, no status message 
70 : Either a serious error or something Like a CONFIRM, 
As : ; which isn't important. 
70 20s: | 
0000 ' 8F 36 B1 70 CMPW Re #MSG$_THIRDPARTY ; Third party disconnect? 
12 82 BNEQ 30$ ; Branch if not | 


VMSRT 
v04-000 


0000* 8F 


= VMS PROTOCOL WITH CTERM HOOK - 
LNKMBXDONE = MESSAGE RECEIVED ON THE LIN 5=SEP=1984 


a 
w 
Oo 
wn 


—2 —) —) 5 ss bt 8 a a as ts te 


COOCOSDOOCOOCOOOOCOOCOO 


OOOO C000 CD CD CD COCO CD CO I~ 


WO ODONAUSWh—OO° 


E 6 
$ 1 


QUIT  #SS$_THIRDPARTY 


CMPW R2 #MSG$_PATHLOST 
BNEQ 40$ 
QUIT  #SS$_PATHLOST 


SEP=1984 


aH AX/VMS Macro V04-00 


RTPAD.SRCJVMSRT.MAR; 1 
; Abort program 
; Path lost? 


; Branch if not 
; Abort program 


: Unimportant message, just requeue read 


C 
F 0 

I N 

A ASTHA 
A a 

P KM 

Pp 

Q 


ONERROR 
RET 


CHAN = 


;LINK MAILBOX READ 


READVBLK = 
KMAIL+AST$Q_10SB - 
STHANDLER = 


LINKMAIL = 
AIL+ASTST_BUF - 


= VMS PROTOCOL WITH CTERM HOOKS 16-SEP-1984 02:17:21 YAX/VMS Macro V04-00 P 3 VMS 
v04-000 OUTBANDAST = OUT OF BAND CHARACTER AST R ~3Eb=1 $8e 3:16:60 RTPAD.SRC VMSRT.MAR; 1 ae 3) v04 


ve ~SBTTL OUTBANDAST = OUT OF BAND CHARACTER AST RECEIVED 
; FUNCTIONAL DESCRIPTION: 
HANDLES THE AST RESULTING FROM AN OUT OF BAND CHARACTER 
CALLING SEQUENCE: 
CALLS #0,QUTBANDAST 
INPUT PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
AST PARAMETER = CHARACTER 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
RETSTATUS 
COMPLETION CODES: 


o 


SIDE EFFECTS: 
A MESSAGE SENT ON LINK 


QUTBANDAST : ee 
: 4 (AP) ,OUTBANDCHAR GET THE CHARACTER THAT CAUSED THE AST 
MOVW = #ROPS$C -ATIN, OUTBANDMSG+RDP$W_OPCOD 

MOVW  #RDPS$C~TT_OUTBAND OUTBANDMSGTRDPSU. MOD 


0000 

QOOOOS6C'EF O04 AC 90 

00000562"EF FFFF 8F B80 
564°EF 


06 80 
Q000056A"EF  O0000000'EF B80 MOVW TERMUNTT TOUTBANDMS CORDES $W_UNIT 
$Q10_S cH AN = LINKCHAN - ;SEND ON LINK 
FUNC = #10$ WRITEVBLK ~ 
Pi = OUTBANDM 


P2 = #RDPSK “HEADERLEN#1 
—— QUIT 


SOOOCOCOCOOOSOOSOOSOOOSOOSOOOOO OOOO OOOCOOCOOOOOOOOOOOOOOOO 
POVOAOAIOVOVIODOAOAOAAAAOOAOAADOAAAAAAAIOIAIOIAAADAAIAOAIAIAAAIOAIAAAAOD 


D COMVIUIA E & ANNI NAAN WANA 


OOO FO 
kt tk ak at at tt ot ht SS 
kt kt tt tt tt tt tt ts Ss Ss ss Ss  s Ss 2 Sh 1 1 OOOOO 
OOD NA MEW  O ODNAM EWN $$ O OD NAU EWN O OD NAUE WWI OODNOu 


SP AAAAA.AAI AIA PIPININININPININIDN 2 OO OY MH OOOOOOCOOCOCOOOOOO 
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= VMS PROTOCOL WITH CTERM HOOKS 16-SEP=1 AX/VMS Macro V04-00 Page 24 
LINKGONE = TIMER EXPIRED SO LINK IS GONE 5-SEP=1 138 88:15 116: } RTPAD.SRCIVMSRT.MAR; 1  @) 
CAA 1143 .SBTTL LINKGONE = TIMER EXPIRED SO LINK IS GONE 
CAA 1145 : FUNCTIONAL DESCRIPTION: 
CAA 1149 HANDLES THE AST RESULTING FROM THE TIMER STARTED TO WAIT FOR THE 
CAA 1148 : MAILBOX TO GET THE REASON WHY THE LINK IS GONE | 
CAA 1130 : CALLING SEQUENCE: 
CAA 1138 ; CALLS #0,LINKGONE 
CAA 1194 + INPUT PARAMETERS: 
CAA 1155 : 
| he 
OCAR 1138 : IMPLICIT INPUTS: 
OCAA 1160 : LAST LINK MAILBOX MESSAGE 
OCAA 116¢ : OUTPUT PARAMETERS: 
OCAA 1163: 
pa lig; se | 
OCAA 1166 : IMPLICIT OUTPUTS: 
OCAA 1168 RETSTATUS 
OCAA 1170 : COMPLETION CODES: 
BA 
OCAA 1178 | : SIDE EFFECTS: 
OCAA 1175 A SWAKE WILL FORCE THE PROGRAM TO EXIT 
OCAA 1176: 
BT 
0000 OEAA 1180 LINKGONE: 0 
00000593"EF  O000005C'EF 3C OCAC 1183 MOVZWL_ LINKMAIL+ASTST BUF MBXMSGTYP © ;GET REASON FROM THE LAST MAILBOX ME 
4 1186 SPUTRSG. S MSGVEC = MBXMASG sOUTPUT MESSAGE TYPE 


TE 


H 6 
= VMS PROTOCOL WITH CTERM HOOKS 16-SEP-1984 02:17:21 VAX/VMS Macro V04-00 6 5 
UNSDATMBK O RESSAGE INCTERHiWAC MAILBOX 'SaSeP=1ORG BSiiorbm LATOND se eSeRshe mage 1 mF, 


508 «SBTTL UNSDATMBX = MESSAGE IN TERMINAL MAILBOX 
; FUNCTIONAL DESCRIPTION: 
HANDLES THE AST RESULTING FROM UNSOLICITED TERMINAL DATA OR HANGUP 
CALLING SEQUENCE: 
CALLS #0,UNSDATMBX 
; INPUT PARAMETERS: 
NONE 
: IMPLICIT INPUTS: 
UNSDAT 
OUTPUT PARAMETERS: 


: NONE 
i 


IMPLICIT OUTPUTS: 
RETSTATUS 
COMPLETION CODES: 


; SIDE EFFECTS: 


A MESSAGE IS SENT ON THE LINK. IF THIS Q10 FAILS, A SWAKE FORCES THE 
PROGRAM TO EXIT. 


DIO AONOQOOAOOOOAOAOOOAOOAOOAOAOAOOAOAIOAAAIAOAGOAIAIOOAOMOOAAAAOOAOOO 


POR 2 2 2 SB BS BOO 7 NT THM MMMMMMmMmMmMmmMmmmMmmmMmmmmmmeemmmmmmmmmmmmmn 


DOOOOCOOCOOOOOOSOSOOSOSOOSOSOSOSOSOOSOSOOOOOOOOOOOOOOOOoO 
RPI B NWI 9 BOO. BD) Bn oo 


ce ce ce ee ee ee ee ce ee ee ee ce cee ee cc a em ee ee ee em De ee ee ed ed od od oD dd 3 dD 
FWA WIAWIWIAINRPOPINOPDPINININIDD 2 BQO OOOO O COCO OOO OOOO O0OOMMM@ODOD 
DOONAN EWN OOO NAUE WN OC ODNOAUL WN ODOM WN 2 O OONAUEWN OO ONAUW 


PRIPPIPPOPOPONONONOPOPUPOPONINONININOPOPOPPOPININONINIPOPOPOPUPINNUNP PUPPY 


NSDATMBX: 

000C WORD “M<R2,R3> oo 

51 OA 00 MOVL #RDPSK_HEADERLEN,R1 ; Assume we send this much 
QOOO01I44"EF 9E MOVAB UNSDATFASTST BUF ,R2 ; base address of RDP CTE 
53 OC A2 3¢ MOVZWL RDP$K HEADERCENS2(R2) .RS ; Message code CTE 
0000'8F 5 B1 CMPW R3,#MSG$_TRMUNSOLIC ; Unsolicted data? CTE 
8 1 BNEQ 10§ ; Branch if not CTE 
B MOVW #ROPS$C_TT_UNSOL,- cTE 
02 A D RDP$W_AMODTR2) ; Unsolicited data CTE 
2 11 D 20$ CTF 
= 10$: CTR 
0000°8F 53 81 CMPW R3,#MSG$_TRMBRDCST ; Broadcast message? CTR 
| See 4 BNEQ 18$ ; branch if not ct. 
51 20 Ag 3 D MOVZWL RDPSK_HEADERLEN+22(R2),R1 ; Length of broadcast oat 
51 C D ADDL2 #RDPSR_HEADERLEN+24,R1 3; Add rest + header DBC 
OA Ag 1 60 OD MOVW R1,RDPSK_HEADERLEN(R2) =: Save it in msg 

2A 5 8B p MOV ROP$C_TT_BRDCST, - 
08 D 


4 =~ 4 
mmm 
ee 


BRB ; Back to common code 

Bor su Roo tRe) : Broadcast 

208 
| 


I 6 
VASRT = VMS PROTOCOL WITH CTERM HOOKS mise aH AX/VMS Macro V04-00 Page 26 
v04-000 UNSDATMBX = MESSAGE IN TERMINAL MAILBOX -SEP-1984 116: } RTPAD.SRCJVMSRT.MAR; 1 (1) 
D241 tg 18$: 
0000 ' 8F H B1 D246 124 CMPW R3 Hop +4 TRMHANGUP 3; Hangup? 
* 12 0029 1244 BNEQ  UNSMSGDORE+2 : Ignore it 
1 BO OD2B 1245 MOVW UROPSC ” E ANGUP , © 
02 A2 8 p 46 208 RDP$W_RODTR2) ; Hangup 
62  FFFF 8F B80 OQD2F 1248 MOVW #ROPSC_ATIN,RDP$W_OPCODE(R2) ; message type 
08 A2 QO000000'EF B80 4 c : 23 MOVW TERMUNIT, ets. UNIT(R2) ; Term unit num *** ? 
50 O1IE'CE 9E& OD3C 1251 MOVAB W*UNSDAT,R 3; Address of AST block 
GE'AF 9E O0D41 1 36 MOVAB B*UNSMSGDO NE - 
60 D441 3 ASTS$L SPATE eROD ; Next state 
53 F4DB CF 3 D45 «1254 MOVAB WASTRANDLER .RS ; Ast address 
FCEF 30 OQD4A 1255 BSBW WRITE_TO_NET ; Write message 
04 OD4D 1256 
OD4E 1257 


ain aneitiineiaiedtailiniplaniinie li epeltiibiannahinptaicia parse — 


VMS 
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v04-000 UNSMSGDONE - DO A NEW TER MINAL MAILBOX R 5=-SEP-19 RTPAD.SRCJVMSRT .MAR; 1 (1) 


Due fe .SBTTL UNSMSGDONE = DO A NEW TERMINAL MAILBOX READ 
D4E 61 " FUNCTIONAL DESCRIPTION: 
et: ! 68 | WHEN THE WRITE TO THE LINK COMPLETES,DO A NEW TERMINAL MAILBOX READ. PSE 
D4E 63 i : CALLING SEQUENCE: “> 
an¢e e) ; CALLS  #0,UNSMSGDONE sAB 
$b ie : INPUT PARAMETERS: RT 
D4E zi : NONE 
an4e 78 : IMPLICIT INPUTS: 
ODdE £3 i : NONE Pha 
OD4E 1 58 : QUTPUT PARAMETERS: Ini 
OD4E 1278 : Con 
ee age x 
OD4E 81 : IMPLICIT OUTPUTS: Pas 
SH < 
OD4E 1285 : COMPLETION CODES: Ass 
aE rf 
OD4E 88 : SIDE EFFECTS: 910 
OD4E 1290 IF THE MAILBOX READ QIO FAILS, A SWAKE IS ISSUED TO CAUSE THE PROGRAM 173 
OD4E 1291 : TO EXIT 36 
OD4E 1 3 : 
Ooce S90 3 
haa OD4E 99 UNSMSGDONE : ae 
COOOOIIE'EF SC AF 9E Ops6 1 39 MOVAB UNSDATMBX, UNSDAT :NEW STATE Mac 
Op 1298 $Q10_S CHAN = TERMMBXCHAN - = :SET UP UNSOLICITED DATA MBX READ --- 
D58 1299 FUNC = #10$_READVBLK 82 
0p58 1 00 10SB = UNSDAT+ASTSO. 1058 - mY: 
0058 1301 ASTADR = ASTH ANDL ER $2 
p58 (1 be STPRM = #UNS ToT 
o038 1 Pi = UN NSDATAASTST “BUF +RDPSK_HEADERLEN#2 - 
p58 1304 P2 = #MAXMSG 968 
9p8p 1305 ONERROR QUIT 
04 ODBS 1306 RET The 
—————eEeEeEeEeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee ~ j 


a 
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= VMS PROTOCOL WITH CTERM HOOKS 16-SEP-1984 02:17:21 VAX/VMS Macro v04-00 P 
CNTRLC_AST = CONTROL=C & CONTROL-Y 828E p= 1984 5 :16:06 CRIPAD.SRCJVMSRT.MAR; 1 oe 4 


CO 
8 05 - ~SBTTL CNTRLC_AST = CONTROL=C & CONTROL-Y 
8 | 19 3 FUNCTIONAL DESCRIPTION: 
p86 | 1¢ 3 : HANDLE THE AST RESULTING FROM A CONTROL=C OR A CONTROL-Y 
DB 13 ; CALLING SEQUENCE: 
DB6 1 18 : CALLS #0,CNTRLC_AST 
DB6 1317 ; 
DB6 1 18 : INPUT PARAMETERS: 
DBS 1 : 
DB6 1320 ; NONE 
DB6 1321: 
ODB6 1 ¢ : IMPLICIT INPUTS: 
ODB6 1 : 
QDB6 1324 ; CNTRLYTIM 
0DB6 1325 ; 
ODB6 1 § : OUTPUT PARAMETERS: 
ODB6 1 : 
ODB6 1328 ; NONE 
ODB6 1329 ; 
QDB6 1330 ; IMPLICIT OUTPUTS: 
ODB6 1331 ; 
ODB6 1 ¢ ; CNTRLYTIM 
0DB6 1 : 
ODB6 1334 ; COMPLETION CODES: 
ODB6 1335 ; 
ODB6 +1336; 
ObB6 1 37 : SIDE EFFECTS: 
QDB6 «1338 : 
ODB6 1339 ; A MESSAGE IS SENT ON THE LINK AND FOR “Y THE AST IS REENABLED. 
O86 | 40 5 : TWO QUICK (LESS THAN 3 SEC) “Y'S WILL ABORT THIS PROGRAM. 
DB6 1 4g 
0000 OpB6 1348 ENTRLC _AST: .WORD 0 
00000114"EF FFFF 8F BO ODBB 1344 ovw prorec ATTN, CNTRLCY+RDP$W_OPCODE 
0000'8F 04 AC Bi ODC1 1345 CMPW = & (AP) , FIOSM_CTRLCAST 
10 12 ODC7 1346 BNEQ 
00000116'EF 02 BO OD¢9 1 44 MOVW = #RDPSC_TT_CTRLC,CNTRLCY+RDPS$W_MOD 
QOOOOSA6'EF 94 ODDO 1349 CLRB NTRCFLAG : NO CONTROL-C ENABLES 
0083 31 ODD6 1350 BRW 
0000'8F 04 AC 81 po9 1 3 10$: CMPW = ss 4 (AP) ,#@10SM_CTRLYAST 
26 «#13 «ODDF 1 BEQL 208 
DE1 135 QUIT  4C(AP) : PROBABLY A HANGUP 
0088 30 OF07 1354 208: BSBW CNTIRLYTEST ; CHECK FOR RECENT ay 
EOA 1355 $Q10_S CHAN = CNTRLCHA RE-ENABLE IT 
E0A 1 36 FUN NC = #10$_ SETMODE! 10SM° CTRLYAST - 
EOA 1 3 Pi = CNTRLC“AST - 
: A ! 28 P2 = #10SM_CTRLYAST 
: | $9 : WE WILL START TIMING WAITING FOR A SECOND ONE 
00000598 ' EF 95 E 1 ¢ TSTB CNTRLYTIN ; ONLY SET ONE TIMER AT A TIME 
iD 12 O€ 6 136 BNEQ : SKIP IF TIMER ENABLED 
0000059B'EF 96 OF 1364 INCB = CNTRLYTIM : INDICATE WE HAVE ONE “y 


BUFADR = CNTRLYMSGBUF - 
LAGS = #1 


/ 
$FAO_S CTRETR = CNTRLYMSGBUF - 
OUTLEN = CNTRLYQUESLEN - 
OUTBUF = CNTRLYQUESBUF - 
#REMOTENODE 


L 6 
= VMS PROTOCOL WITH CTERM HOOKS 16-SEP-1984 AX/VMS Macro V04-00 P 9 eef 
v04-000 CNTRLC_AST = CONTROL=C & CONTROL-Y BEE E= bbe OS:16i06 ERTPAD SmeTUMSKS “Maes age 73; 
E3E 1365 SSETIMR_S DAYTIN = THREESEC = ; TIME THREE SECONDS 
E : 1 66 = YTIMEDONE 
00000116'EF 03 B80 : 3 6 58: MOVW #RDPSC fT LCTRLY, CNTRLCY+RDPS$W_MOD 
QOOOO11C"EF  O0000000'EF 80 Est $3 "MOV = TERMUNIT, CNTRLCY*+RDPS$W_UNIT 
07 00000000'EF £9 OF67 1 i BLBC CTERM FLAG, 40$ : Branch if VAX 
0000' CF 6¢ FA EG 1 rg CALLG (AP) ,Q*CTERM_CTRL_CY : Notify cterm module 
1 11 E 3 BRB 50$ : Exit 
50 OOOOQ0EE EF 9€ 0€&75 1375 40$: §§ MOVAB  CNTRLCY_MSG,RO : AST block 
51. OA OD EZ i: MOVL § #RDP$K_READERLEN,R1 + and Length 
52 26 49 4 pert : 4 re ‘ TST_BUF (RO) ,R2 A Address of message 
; NO as 
FBB4 6-30 OEBs 1380 BSBW WRITE_TO_NET : Write to net 
0€88 1381 50S: 
04 OEE 1 : RET 
OF89 i 4: 
E89 ‘ : “Y TIMER HAS EXPIRED 
0000 9689 | 7 VTIMEDONE : 0 
0000059B'EF 94 OF8B 1389 CLRB = CNTRLYTIM :NO RECENT “Y 
04 0€91 1390 RET 
S95 1302 | 
33 ! 38 t ASK ABORT QUESTION IF THERE WAS A RECENT “Y 
0E92 1395 ¢NTRLYTEST: 
00000598 EF 5 OE ist CNTRLYTIN 
05 DEA 1 RSB RECENT “Y = CONTINUE 
£98 1 10S: SGETMSG_S MSGID = #REMS iNTReY - 
0698 1 MSGLEN = CNTRLYMSGBUF - 
0E98 1 
£98 1 
EBs 1 
ee 1 
ofps gyre 
deb? $alow_s CHAN = READCHAN ~ yASK ABOUT THE “Y JUST TYPED 

E07 1 FUNC : fins. READPROMPT! 10$M_CVTLOW ~ 

BF BS 

E07 1 = #CNTRLYQUES - 

ED? 1 bé = CNTRLYQUESLEN 

59 8F 0000059 "EF 9 F06 cMPB ANSBUF SHOA/Y/ ;DID HE SAY YES 
05 al RSB ;HE SAID NO - SO CONTINUE 
F111 


FREE PRR REE EEE EE EEE RWWA 


2  QOODTOOOOCOOOOOND 


CONOUL WN" OOONAULS WN OOo 


T 
QUIT #SS$_NORMAL :NO STATUS MESSAGE 


= VMS PROTOCOL WITH CTERM HOOKS =SEP=1984 02:17:21 VAX/VMS Ma v04-00 P 0 
v04-000 VMS_INDREAD = READ INDIRECT COMMAND FILE | “SEP=1984 z 8 7:16:06 CRIPAD.SRC VMSRT.MAR; 1 er an 


ss ~SBTTL VMS_INDREAD = READ INDIRECT COMMAND FILE 
" FUNCTIONAL DESCRIPTION: 

: READS FROM AN INDIRECT COMMAND FILE 

; CALLING SEQUENCE: 

; JSB VMS_INDREAD 

; INPUT PARAMETERS: 

AST Block 

Address to put input dat 

Q10 read modifiers tonty” IOSM_CVTLOW checked for) 
: Size of request in bytes 

; IMPLICIT INPUTS: 

; SYSINRAB 

; OUTPUT PARAMETERS: 


: NONE 
i 


» 
— 
eeee 


: IMPLICIT OUTPUTS: 

: INDFLAG 

: COMPLETION CODES: 

; SIDE EFFECTS: 

T 


N AN EOF, FURTHER READS FROM THE 


0 IND 
THE PROGRAM WILL EXIT ON AN INDIRECT 


IRECT FILE ARE DISABLED. 
FILE READ. 


MS_INDREAD: : 


Ses Mae a fee 2 Dien fem a Die Bem Die es De Dien Bie Des Di Bs De Bs De Bs Re Bs Re Bs Bs es Be Ds Be Ds De Dees Dee Ds De Does De Dees De Dees De 4 Dees De De 2 Dn Doe De 4 De Dos foe Do Do Doe 2 Boe De a ns Bn | 
SPANVDOAOCOPNVOOGCOUIMS FP PPP PPP P Err Err rr rrr rrrrrrrrrrrrrrrrrrr>r 
Le ee ee ee ee SS » 
PS SS ee NNN 
SANNA AAA AA AAA AMMA BBB BAAN IIOP 
CUE WN 2 OODNAUE WN OOONOAUE WN OOO NAUE WIN OOD NOUEWN OOD NAOUEWN IO 


OOD 0909 NIIP AA AME ENN ANI WINN WIWI WWII N WII 


OOOOOCOSOOSOSOSOOSOSOSOSOOOOOOOOOSOOOOSOOOOOOOOOOOOOOOOOOOOOOOOO: 


0043 8F BB PUSHR #*A<RO,R1,R6> 
Q0000000'EF 51 D0 MOVL RI »SYSINRAB+RABSL_UBF =; Data address 
00000000'EF 53 8B MOVW hd fa USZ ; Requested size 
$GET Rabe NRAB ; Read a record 
00000000'8F 50 01 CMPL RO sRnes: SNORMAL 
69 12 BNEQ 108 : Problem 
F BA POPR 
AO 7C CLRQ ASTSG a{osétno) 
EF 3C MOVZWL SYSINRAB ABSW_RSZ,R1 
EF 80 SYS air RSZ,- 
AO AST$Q_10SB+ < 3; Size of read 
£ 3 ADDL SYSIN UBF ,R1 : Find where to put terminator 
D MOVB a*x i +h is 
ea. vB Pet ASTSO. Jo sae 4(RO) ; Set <CR> as terminator 
1 8B MOVW Astsa (RO) Terminator size 
F B MOVW asée NORAL: “AST. wars f 
F D BITL #10SA_ CVTLOW,R2 


— 
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VMS_INDREAD = READ INDIRECT COMMAND FILE 5-SEP=1984 03:16:06 CRTPAD.SRCJVMSRT.MAR; 1 (1) 
22 13 Org? 1477 BEQL 9S ;NO_CASE CONVERSION 
EF 99 14/8 MOVL  SYSINRAB+RABSL_UBF ,R :BUFFER ADDRESS 
EF 3C FAQ. 147 MOVZWL SYSINRAB+RABSW_RSZ,R iCHARACTERS TO CHECK 
66 91 FAT 1480 58: CHPB (RO) .#*A/a/ 
9 19 OFAB 1481 LSS BS ;NOT LOWER CASE 
66 91 OFAD 148¢ CMPB = (R6) ,#*A/2/ 
03 14 OFB1 14 BGTR 8$ ;NOT LOWER CASE 
gO 82 FBS 1484 SUBB -#*X20, (R6) ;MAKE IT UPPER CASE 
$ DG OFBG 1485 BS: INCL RG iNEXT 
EC 51 FS OFBB 1486 SOBGTR R1,5$ 
OFBB 1487 9$:  SDCLAST_S ASTADR = ASTHANDLER, - ;SIMULATE A COMPETION AST 
Fee 1488 ASTPRM = RO 
04 OFCA 14 RET 
00000000°8F $9 DT FCB 1490 108: CPL RO, #RMSS_EOF ;ARE WE JUST DONE WITH THE FILE 
18 12 OFD2 1491 BNEG ;REAL PROBLEM 
OD, 1498 SCLOSE FAB = SYSINFAB ;DON'T NEED IT 
00000000"EF 94 OFET. 149 CLRB 
0043 8F BA OFE7 149% POPR —#*M<RO,R1,R6> 
0S OFEB 1495 RSB ;G0 DO THE REAL Q10 
OFEC 1496 208: Quit 


8 7 
rem woos PAIS ARIEL BD Reset) 


00 -SBTTL GETBUF = GET A BUFFER 
; FUNCTIONAL DESCRIPTION: 

GET A FREE BUFFER OR ALLOCATE ONE IF THERE ARE NONE. 
CALLING SEQUENCE: 

JSB GE TBUF 
INPUT PARAMETERS: 

NONE 
IMPLICIT INPUTS: 

BUF QUEUE 
OUTPUT PARAMETERS: 

RO POINTS TO THE BUFFER 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 


SIDE EFFECTS: 
MORE VIRTUAL MEMORY MAY BE ALLOCATED 


éE TBUF : 


50 00000026'FF OF * REMQUE @BUF QUEUE ,RO ;GET A BUFFER 
01 BVS 10$ 


; BRANCH IF NONE 
RSB ; RETURN 
; ALLOCATE A BUFFER 


uw 
bod 


900000 oes EE EF OF 108: be BUF ADR ;BUFFER ADDRESS WILL BE RETURNED HERE 
oF PUSHAB Bur Lee REQUESTED SIZE 
00000000 ' GF p FB CALLS G“*LIBSGET_VM 
GNERROR Quit 
-I1F DF debug 
moval otvm,RO ; set message address 
bsbw og_ascic ; log message 


ao 
a 
>] 
a 


50 OOO00002E"EF oD 
BB 


—-o 


MOVL ay nn. 
BRB $ ; BRANCH TO EXIT 


a aa aa a a a tt tt ss ss — — —s _ 


DOOCOOCOOOCOCOOCOOCOCOCOCO COCO OOOOOCOOOOOOOOOOOOOO 


LV PUPP LSS DI ad od od od 
FO BPA AAA AM DD BO ni att kn a tk at at 


mw 
& 
oa 
@ 
a 
| aed 
*s. 
j oe 
| o<x 
| ‘= 
| wie — 
oa ” 
Se — 
” ! 
o= 
c> w 
wn w 
av is 4 | 
=a “ ! 
” | 
Ww « z 
| za _ 
>< 
~o a 
<x w 
<a “ 
>w we 
> 
wo 
oO 
NO a 
oo ee = 
~~o a 
om . 
arm 
oo « 
w 
wTwwr /é 
ona uw 
oo aD 
-—-—- @ 
§ 
aa <« 
wes 
mow w 
ss w 
on = 
— u 
ft z 
oO w 
woe bd wa 
~ wae -—- [+ 4 
ca w o oe 
i — “ oT “ oe w 
vu _ &cewsa bled = ” ” 
> wvwraofov @f@ & ~ w -— w 
ow @ 2 w - wi a) oa 
” wa w al —- —- 2 a oO oe 
b~ 4 + a<«t oa ws qo w ££ md Vv ” w 
Oo -— f=) = = = =& a | _— a 
oOo - + w w < ~~ Oo acewOowz ve w c= |] 
x= oat w ” @©@ & ue «& 2 = © w 2 wow 
YoY 2 az ” <« ee 848 2 &F- & = uu Oo zo 
= a. oa & *» & —_— @ zo 2 &- —- = omar 
= _ Pa vw -_ v uw w id 
wo -— _ + _ > _ J w 
ew v | > a) a — a w w 
vu z a a a -_- a = a < 
ive = < , 4 = > = =“ “ 
= a ow ~ —_ o — =) [7] 1 “ 
-—@ + a | 
-_ fete te terete tee ete tee Fee Se *e Fe *e Fete Fete *e*e *e *e te *e “See te *e e@ 
3< 


F NOP DAO ONT NOP. DAO OWN NOR. WOO l- CUM TFN OR. OKO 
Saw MWMANUNOOOOOOOOOOP-P-P-P-P_P_P_P-P_R. CODD ADDO DODODOO 


SE 2 LL OO OC OC CC ee 


or Oe Oe Oe. Oe. Oe Oe. Oe Oe. Oe he he a he a a a a a a a a a a a tt 
[4 DAAAAAWAAVALDUAVLVLPVAVLVEAVAVELVEPVEPVEPVUAVELVUAVTUAIP EAT SO 
Aw DOOOOOCOCOCOCOCOCOCOCOOOCOOOCOOOOSOOOOSCOSCOOOOCOOCOOO 


i 


Wa 
zu 
> ww 
> oo 
1@ 
o 
eo 
“ 
w 
~o 
™N 
So 
So 
So 
Oo 
oO 
So 


RO POINTS TO THE BUFFER 
(RO) ,BUF QUEUE ; 


i ————— — 
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v04-000 READ ONLY DATA -SEP=1984 03:16:06 CRTPAD.SRCIVMSRT.MAR; 1 (2) 
67 93 .SBTTL READ ONLY DATA | 
| 
F' 4 8 1 3¢ TERMOPS: .WORD <2$-1$>/4 
001 + 1069 1396 18: ‘WORD —10$_READVBLK., OP_READ | 
001 ' 1065 159 “WORD IO$"READLBLK,OP~READ | 
001 "1071 «1 98 “WORD IO$"READPBLK,OP-READ | 
101 "4 03 159 “WORD IO$~READPROMPT ,OP -READ!OP_ PRMPT 
001 ' 1079 1600 “WORD IOS$“TTYREADALL,OP~REA 
101 * 107d 1601 “WORD 1O$“TTYREADPALL, OP READ!OP. PRMPT 
0 * 1081 16 : -WORD JOS"WRITEVBLK,OP_WRITE 
0 "1085 16 “WORD [O$"WRITELBLK.OP-WRITE 
90 * 1089 16 4 “WORD [0$"WRITEPBLK,OP~W 
* 1080 1605 WORD IO$"SETMODE,OP_SETM 
999 0 * 1091 1606 “WORD I0$~SETCHAR,OP~SETMODE 
04 0 * 1095 16 “WORD IO$~SENSEMODE ,OP_SENSEMODE 
9004 000° 1099 1608 -WORD IO$"SENSECHAR,OP~ SENSEMODE 
4 5 0000' 109D 16 WORD [O$-ACPCONTROL,OP_CANCEL 
006 FFFF 10A1 1610 .WORD =1,0P_BRDCST 
iB 181) 
00000000 00000000'00000002 10a5 1818 ACSIGNORE: .LONG 2,REM$_ACSIGN,O 
00000000 00000000'00000002 1081 1615 BADOUTBAND: .LONG 2,REM$_BADOUTBAND,0 
FFFFFFFF FE363C80 1080 181? THREESEC: .LONG -10*1000*100083,-1 ; THREE SECOND TIMER 


—E 7 
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READ WRITE DATA “SEP=1984 05:16:06 CRIPAD.SRCJVMSRT.MAR; 1 (3) 
1 1620 SBTTL READ WRITE DATA 
0000 1 1 PSECT _RTPAD,LONG 
0000000C e 1 CHARBUF : -BLKB 12 
0 be 1 5 OUTBANDINC:: .WORD ;OUT OF BAND (INCLUDE) AST CHANNEL 
0 1 § OUTBANDEXC:: .WORD SOUT OF BAND (EXCLUDE) AST CHANNEL 
000 3 19 OUTBANDABO:: .WORD ;OUT OF BAND (ABORT) AST CHANNEL 
0000000 4 16 ; CTRLO_CHAN: - LONG ; CHANNEL FOR “O OUT OF BANDS 
0000000 16 1630 CTRLO-MASK: - LONG 
0000800 pia 1 1 -LONG 18<*A/0/=*A/@/> 
00000026 Olt 19 RTERMDES: .BLKL 2 ; TERMINATOR CHARACTER DESCRIPTOR 
00000026 '00000026' + i 5 BUFQUEVE: .LONG BUF QUEUE ,BUF QUEUE EMPTY BUFFER QUEUE 
00000000 09 ; i BUF ADR: -LONG 0 ;THE ADDRESS OF AN ALLOCATED BUFFER GOES HERE 
00000440 iF 1973 BUFSIZE: .LONG AST$T_BUF+MAXMSG BUFFER SIZE 
00000839" 0036 1641 LINKMAIL: -LONG LNKMBXDONE 
00000084 003A 1642 -BLKB = AST$T_BUF +40-4 


Re of EERIE CE REE a RE ee See EE a “ 
=. | | 
VMSRT = VMS PROTOCOL WITH CTERM HOOKS 16-SEP-1984 02:17:21 VAX/VMS M 4-00 P 82 
v02-000 Protocol Message buffers ~See rT eRe BSi1Zis PARAYDS Magra ¥04 800 mat 8 
r 1644 .SBTTL Protocol Message buffers 
Sym 
6 4 . SIN 
QOO000AA 4 CONF 1G_MSG: .BLKB ASTST_BUF ; CONFIGURATION MESSAGE ALL 
00 01 01 01 OOAA CONFIG-MSG_ST: .BYTE 1,1,170 ; BIND,V1, ECO=1,customer ECO ASG 
0004 0007 ie at ft -WORD 7,4 ; VMS, support mask ae 
000000BE 008 a ee ; Characteristics buffer CHR 
00000014 9 BE CONFIG_MSGLEN = .-CONFIG_MSG_ST ae 
OOBE ; Cul 
e ; Unsolicited data message (init) 
0B 5 
000000E4 008 INIT_MSG: .BLKB ASTST_BUF 
FFFF 1$: WORD 


«WOR RDPSC_ATTN 
«WORD RDPSC_TT_UNSOL,0,0,0 ; Fake unsolicited data 
INIT _MSGLEN = .-1$ 


0000 0000 0000 0000 
Q000000A 


: CONTROL C or CONTROL Y (*C or “Y) out of band message 


AOAAAAAAOAAOAIE 
SERRA BDAABOEBRBeE EO 


Pat Pt nd Ded bene Peed Pet pemms Pam fend and beweh fend 


00000114 
QOO0011E 
0000000A 


QOOOOCEF’ 
00000562 


CNTRLCY_MSG:  .BLKB _ASTST_BUF 
NTRLCY? -BLKB__RDPSK_READERLEN ; LINK MESSAGE FOR CONTROL C OR Y 
CNTRLCY_MSGLEN = .-CNTRLCY 


UNSDAT:: -LONG UNSDATMBX 


: VMS AND CTERMRT ONLY???*#* 
-BLKB ASTS$T_BUF+MAXMSG :; FOR UNSOLICI 


TED DATA MAILBOX 
> Out of band message 


OUTBANDMSG: .BLKB_ RDPSK_HEADERLEN 
OUTBANDCHAR: .BYTE 0 


> Cancel message 


00000000 sia 44 CANMSG: “Loe sored 200.8 


a ce ee ce ce ce a ce ee el ce ee el ee el cel el eel eel el el el el el eel eel ce el cel el el el el el el el cel cel el cel el eel eel eel el el eel eel el eel el eel 

SPARE APAEAAAAAAAAAAAAAAA AAA AAAAAAAAAOSAAAAAAOA SHAS AOAAOOOCAOOO 

DOOOOOO OOOO 0069 9 09 69 09 09 09 09 SIN NNN NNN PAA AAA AA AA MII a 

OOO NO NES OOOO UE WP 9 ONO UNE WIR) 0 OO NOU EWR" OO OOO UE WR" OOoOnwou 
Oo 


0 

0 

0 

0 

0 

0 

0 

0 

0 

Q 

Q 

0 

Q 

0 

0 

0 

0 

i] 
0000056C ; 
00 


0000 oF -BLKQ 1 
00000587 BRDDESC: .BLKL 2 ;DESCRIPTOR FOR BROADCASTS 
00000001 000000000000 MBXMSG: .LONG 4,REM$S_NETMBX, 1 
MBXMSGTYP: LONG 0 
0000 44 LINKERR: -LONG 0 
00 38 CNTRLYTIM: .BYTE 0 ;RECENT “Y INDICATOR 
00000546 Hi ANSBUF:  .BLKB 10 ;RECEIVE ANSWER TO “Y QUESTION 


: BIND and configuration data message 
| 
| 


G6 7 
VMSRT = VMS PROTOCOL WITH CTERM HOOKS 16-SEP-1984 02:17:21 VAX/VMS Macro v04-00 Pa 37 
v04-000 Protocol Message buffers at 198 88: 16:06 CRIPAD.SRCJVMSRT.MAR; 1 = (4 


00 Ag 7 1 CNTRCFLAG:: .BYTE 0 s INDICATE CONTROL=C ENABLES 
00000000 a 7 READQIO:: .LONG 0 71D OF CURRENT READ REQUEST 
00000000 248 7 5 WRITEQIO:: .LONG 0 :1D OF CURRENT WRITE REQUEST 
OOOOOSAF 'O00005AF * SAF 7 : READQ: : «LONG READQ,READQ ;QUEUE OF PENDING READS | 
00000587'000005B7" 387 1708 WRITEQ:: .LONG WRITEQ,WRITEQ ;QUEUE OF PENDING WRITES 
000005¢7 38F Wil REMOTENODE: : -BLKL 2 ;REMOTE NODE NAME 
att 1348 ; 
5C7 1714 
QOOO0SCE O5¢7 1715 INCMASK:  .BLKL 2 :OUT OF BAND INCLUDE MASK 
00000507 0357 1716 EXCMASK: .BLKL 2 sOUT OF BAND EXCLUDE MASK 
0000' bebe tat Bi First READ: .WORD IO$M_PURGE ; Don't purge type ahead (on the first read) 
0509 1720 ENTRLYMSGBUF : 
000005E1'00000100 0509 1721 .LONG 256,18 ;BUFFER TO HOLD CONTROL Y QUESTION (BEFORE F 
000006E1 B2e) 17 ¢ 1$: BLKB 256 
6€1 17 
0661 1794 ENTRLYQUESLEN: 
00000000 bees if 5 -LONG O sFINAL LENGTH OF QUESTION 
06E5 17 $ lee seeiveneas 
000006ED'00000100 06€5 1728 256, CNTRLYQUES :BUFFER TO HOLD THE FINAL QUESTION 
06ED 1729 CNTRLYQUES: 
000007ED Beep \? -BLK 256 
00000000 Bree 1736 MAX_SENDSIZE:: .LONG 0 ; Maximum network send size *** 
07F1 1734 
O7F1 1735 .END 


; of module VMSRT 


ooo 


H 7 +17 AX/VMS Macro V04-00 Page 
= VMS PROTOCOL WITH CTERM HOOKS SRE 1984 08:16:00 ERTPAD SRCSUMSRT -MAR; 


aw 
so 


RT 
yymbol table 


SCF R 3 | 
= 999900 OME art «A i 
+ Sp la | : f FIRST READ 001 11 RG ¢ 
$$. TMP . 0 GETBUF 05€7 R | 
$312 " QOBOIBAS n gg TCR sooggoee a” 98 | 
ACS IGNORE oC R INIT-ASG = 90000008 | 
ANSBUF = 49 INIT“MSGLEN teeeeeee X02 
ASSEM_TRACE z 900 0 1OSM_CTRLCAST aeeeeeee x 8 
oS Tare = 90000004 LOSM-CTRLYAST eeeeeeee x 
T$Q-10SB = 0 6 10$M~CVTLOW aeeeeeee =X 8 
ASTST_BUF z ¢ 1O0$M—~HANGUP eteeeere 
1 tha ofS a Banvgce RG a LOSM~ INCLUDE eteeeees XO 
® 
sua a sent a 3 eee See 
BUFADR, an900g@ F RG 108 ACPCONTROL enensees kK 02 
sure possoges & gf TGE-REASLLE sae fw 
BUFSIIE. $0000785 R ¢ Os RE ADPRONPT eeeeeeee : Os 
eace| 10 949-534 A 1OS-SENSECRAR teeneees X09 
CANM ete ae 10$~SENSEMODE teeeeeee X09 
CHARBUF eeereeee 8 6X § 10$SETCHAR aeeeeeee YX (02 
CHAR BLOCK eeetees a El 10$~SETMODE eeeeeeee X02 
CNTRCFLAG ateeeeee x § 10$ TTYREADALL eeeneeee X 02 
CNTRLCHAN oe Us 10$-TTYREADPALL teeeeeee =X 09 
CNTRLCY QOQOOOEE R 10$-WRITELBLK teneenee X02 
LCY_MSG = 0000000A 0 10$- WRITEPBLK keekkene x 02 
CNTRLCY MSGLEN Settee Re OS 10$"WRITEVBLK tereeeee X09 
LC Ast 00000509 R = 0 LIBSGET VM sesacees =X OG 
are tiene et BE eas’ 
ERR QOOOOCAA 
CNTRLYQUE SBUF QO0006E1 R 03 athe 0000036 R =O 
CNTRLYQUESLEN OO000E9? R 08 Loe SROeNvEe te ORS 
CNTRLYTIM 00000082 R 03 RR R 0 
CONF IG_CHAR oo0000Rs ROS L AKMEKOORE Soo00RSF RG 
CONF 1G_MSG = 00000014 LNKWRTDONE teeeeeee XO DSR 
cou ie-rese eee", in = oonncia S| 
re 
CTERM_CTRLO_AST teeeenee KX 0 Aan seumsize 4 149 DSR 
CTERM_CTRL_CY reeerent x 0 MBXASG 00000593 R 0 
CTERM_ eevecere =X 0 MBXMSGTYP teneeeee XO 
CTERMTL INKRECV oem ME MSGS_ABORT ereneers =X 0 EN] 
eTERn ome pacneses . 0 MSGS_DISCON etreeene : 8 ha, 
eee mi keene 
CTERM_UNSMSGDONE = 0000002 Het OST ee x 0 GPC 
CTPSB~PRO. MSGTYPE 6900004 R 3 MSCS TRIRDPARTY ceeecees  X 0 INL 
CTRLO_CHAN 0000016 R NSGS_TRMBRDCST teeeeene x INC 
CT BIRD ACC_MSG ssesecen.t RSGS_TRMHANGUP teeeeeee X 0 INC 
eT ND-MSGCEN eeenae x 8 G8 TRRUNSOL = 2090008 
0B INRRECV eeeeeeee 8 6X OP CANCEL ‘> 0 400 | 
0B INKWRITE eeeerere x P~PRMPT - 0 
DOGS TRACE 10 anor OP"READ = 90000004 | 
eee - in 
DEV VAR ceeeesee OP” SENSEMODE | 
DEVN 


SS 


—— | 
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Symbol table -SEP=1984 03:16:06 CRTPAD.SRCIVMSRT.MAR; 1 (4) 
ET = RNS$_NO RMAL eeeeeeee KX 02 
RITE = RTSC-LINKEFN = 000 6 01 
ANDA\ RG RTERMDES 08 1E R 03 | 
OUTBANDAST f RTLOG$V_TRACE z 0001 
OUTBANDCHAR C RTLOG_FCAGS eeeeeene | 
BANDE XC E SENSEMSG 900005¢8 
OUTBAND INC SETMSG 00003A 
OUTBANDMSG $S$_ABORT aeeeenee 0 
OUTBAND_ERR 000 $ SS$-EXQUOTA keeeeeee 0 
OCMSG 0 9 f SS$~ NORMAL eeeeenes 9 
PROCMSG EXIT 0000621 SS$_PATH COST eeeeeene 
oTo €C reereeee p SS$ THIRDPARTY eeeeeeee 9 
ODORE 0000095 SYSSASSIGN eeeeeeee 
Q10_ERR 0000058 SYSSBRDCST ateeeene 02 
SL_UBF eeekenee xX SYSSCANCEL kketeene 0 
RABSW_RSZ eeereeee = X 0 SYSS$CLOSE tteeenee 0 
$W"USZ eeeeeree = X 0 SYSSDCLAST aeeeenee 0 
RDP$B-TT_OUTBAND = 0000000A SYSS$FAO teeeneee 02 
C_ATTN = FFFFFFFF SYS$GET teeeerer 02 
“END = FFFFFFFE SYSSGETMSG teeeeeee 0g 
RDPS$C_TT_BRDCST = 00000005 SYSSPUTMSG aeteeees 0 
RDP$C_TT_CTRLC = 00000008 SYS$QI0 teeeenee 02 
ROPSC_TT_CTRLY = 0000000 SYS$QI0Ow ekeeenee 02 
RDPS$C_TT_HANGUP = 00000001 SSS$SETAST eeeeteee 02 
RDP$C_TT_OUTBAND = 00000006 SYSSSETIMR aeeeneee 02 
ROP$C_TT-UNSOL = 00000000 SYSSWAITFR teeeeeee 02 
RDPSK_HEADERLEN = 0000000A SYSSWAKE eeeeeeee 02 
DPSL_REF ID = 00000004 seis eeeeeeee 02 
RDOPSL_TT_ASTPRM = 0000000A SYSINRAB eeeenene 02 
"TT" = 0000000A TERMMBX CHAN aeteeene 02 IND 
RDPSL_TT_CARCON = 0000000E TERMOPS 00001067 R 02 IND 
RDPS$L_TT_CHAR2 = 0000001E TERMUNIT ateerete 02 IND 
ROPSL_TT_FILL = 00000016 THREESEC 000010BD R 02 IND 
DPSL_TT_PARITY = 0000001A TRACE_CONT INUE 000006E9 R 02 IND 
RDPSL_TT_SPEE = 00000012 TRACE ~CONTINUE2 OO000A42 R Os IND 
“TT-TIMOUT = 0000000E TRACE_RECV 0000065A R 0 IND 
ROP$Q_ STATUS = 0000000A TRACE WRITE QOOOOASF R 02 IND 
“TT_CHA = 0000000A TTY DESC aeeeeeee XX Oe IND 
RDP$Q_TT-SCHAR = 0000001 UNSDAT QOOOOI1E RG 0 IND 
RDPS$T_TT_RDATA = 0000001 UNSDATMBX QOOOOCEF R 0 IND 
PST_TT_ = 0000001 UNSMSGDONE QOOOOD4E R 0 IND 
RDP$T TT WDATA = 0000001 VMSRT 00000000 RG 0 IND 
PSW_MOB = 0000000 VMS_INDREAD QOOOOF3A RG =O IND 
RDP$W_OPCODE = 900008 WAKEFLAG aeteeeee =X 9 IND 
RDPSW" UNIT = WRITECHAN eeenerer IND 
READCRAN reterere 0 WRITEMSG 00000335 0 IND 
READMSG 0000244 R 0 WRITEQ 90000287 RG 0 INO 
EADQ OOOOSAF RG WRITEQIO 00005AB RG 0 IND 
READQIO 00005A7 RG WRITE_TO_NET OObDARE RG 0 INO 
RECORD_QUIT eeeeeeee =X WRITE-TO_NETX 00 OA 0 RG 0 INO 
EMS_ACSIGN aeeeeeee § xX WRITE-TO-NET_SYNC 0000 aCe RG 0 INO 
REM$_BADOUTBAND eeeeeeee xX YTIMEBONE 00000E89 R 0 IND 
REMS CNTRLY erereree 7 IND 
REMS” NE TMBX eereteree INO 
MOTENODE QOO00SBF RG 
RETSTATUS eeneeere x 
RMS$_EOF eeeeeeee x 


VMASRT 
Psect synopsis 


PSECT name 


Initialization 
ag processing 


Pas 
Symbol table sort 
Pass 2 


Macro Library name 


Symbol table output 
Psect synopsis output 
Cross-reference output 
Assembler run totals 


TOTALS (all Libraries) 
968 GETS were required to define 30 macros. 


- VMS PROTOCOL WITH CTERM HOOKS 
RTPAD.SRCJVMSRT .MAR; 1 


fmm ere n scene aor ooe dh 


! ;_Psect synopsis H 


Allocation PSECT No. Attributes 

00000000 B -) 0O ¢ QO.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
Boon ee ( -) QO1¢ +1.) NOPIC USR CON 4ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
e's bs ( $33 + § ( -) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 
000007F1 (¢ 2033.) ( -) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 


town wowe wer een enw en ere neces + 


! ; Performance indicators ; 


Page faults CPU Time Elapsed Time 
7 00:00:00.05 88 +0 08-90 

123 00:00:00.46 ae Be 35 

401 00:00:10.19 00:00: 5-53 

0 Oo? 83:08 3e ae St 2 

288 00:00:03.24 00:00:10.96 

26 00:00:00.11 00:00:00.30 

2 00:00:00.02 00:00:00.02 

0 as ho 00:00:00.00 

880 0:00:15.05 00:00:58.04 


The working set Limit was 1950 pages. 
F003 & bytes (178 pages) of virtual memory were used to buffer the intermediate c 
1785" were 60 pages of symbol table space a eeates to hold 859 non-local and 168° locat symbols. 
735 source Lines were read in Pass 1, produci ng,’ 0 object records in Pass 2. 
36 pages of virtual memory were used to define 33 


macros. 
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-8255SDUA28: CRTPAD-OBJIRTPAD. -MLB; 1 5 
“$255$DUA28: (SYS .0B 1 
“$255$DUA28: (SYSLIBISTARLET.MLB;2 4 


There were no errors, warnings or information messages. 
MACRO/LIS=L1S$: VMSRT/OBJ=OBJ$:VMSRT MSRCS$: VMSRT/UPDATE=(ENHS: VMSRT) ¢EXECML$/LIB+LIB$:RTPAD/LIB 
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